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ABSTRACT 


<* 

An  implementation  of  a multiuser  timeshared  operatinq 
svstem  for  the  Sycor  Clustered  Terminal  Processing 
System  is  described.  Utilizing  an  8080  microprocessor/  this 
system  provides  a virtual  operating  environment  consisting 
of  a console  device*  eight  floppy  disk  drives*  and  up  to  32 
virtual  floppy  disk  images  on  a five  megabyte  movable-head 
disk.  In  addition*  a Centronix  serial  printer  is 
incorporated  into  the  system  as  a deaicatea  device  for  any 
one  of  up  to  four  concurrent  users.  The  operating  system 
supports  utility  programs  including  an  editor*  assembler* 
and  debugger  which  facilitate  microcomputer  program 
development  at  the  Naval  Postgraduate  School. 
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I.  INTRODUCTION 


A.  BACKGROUND 

In  the  summer  of  197b  the  Comouter  Science  Deoartment  at 
the  Naval  Postgraduate  School  (NPS)  acquired  a Sycor  Model 
440  Clustered  Terminal  Processing  System  for  use  in  the  NPS 
microcomputer  laboratory.  The  Sycor  440  utilizes  an  Intel 
8080  LSI  chip  as  the  CPU  of  a special  purpose  microcomputer 
svstem  designed  primarily  for  data  entry  applications.  In 
addition  to  the  8080  CPU#  the  Sycor  system  hardware 
configuration  includes  a five  megabyte  movable-head  disk# 
04k  of  random  access  memory  (RAM),  a cassette  tape  drive# 
and  four  Sycor  4412  disolay  terminals  consisting  of  a 
Keyboard  and  cathode  ray  tube  (CRT)  aisolay  device.  Other 
system  devices  incluce  a model  340  communications  terminal# 
a Centronix  serial  printer  and  an  RS-232  asynchronous 
communication  interface.  As  part  of  the  Model  440  System, 
Sycor  supplied  a comprehensive  package  of  system  software. 
Most  of  this  software  was  designed  to  support  applications 
in  the  data  entry  field  which  comprised  the  Sycor  440's 
primary  market  . 

while  the  Sycor  440  made  a significant  addition  to  the 
hardware  comolement  of  tne  NPS  microcomputer  laboratory#  a 
great  deal  of  effort  was  needed  to  integrate  the  system  into 
the  microcomputer  laboratory  to  ensure  that  maximum  benefit 


would  be  derived  from  the  new  equipment 


The  f i rst  step  in 


the  integration  of  the  Sycor  440  hardware  within  the 
microcomputer  laboratory  was  undertaken  as  a thesis  project 
in  the  winter  of  1977.  Kenneth  J.  brown  and  David  R. 
Bullock  deserve  a great  deal  of  credit  for  ehe  conception 
ana  the  design  of  the  Microcomputer  Timeshared  System  (MTS). 
Their  thesis  work  is  contained  in  Ref.  1.  MTS  was  developed 
as  a virtual  machine  monitor  (VMM)  to  support  a user 
operating  system  for  microcomputer  program  development.  An 
in  depth  description  of  the  system  is  given  in  Chapter  III. 
because  much  of  MTS  haa  not  been  debuggea  ana  oecause  it  did 
not  support  an  operating  system  which  woula  accommodate 
student  use,  thesis  work  was  continued  in  the  sprinq  of  1977 
to  accomplisn  these  tasks. 

B.  GOALS  AND  OBJECTIVES 

The  primary  goal  of  this  thesis  project  was 
implementation  of  an  operating  system  on  the  Sycor  440 
microcomputer  system  capable  of  support i na  program 
development  at  the  ‘IPS  microcomputer  laboratory. 
Realization  of  this  goal  required  the  debugging, 
modification,  and  amplification  of  the  basic  MTS  program. 
Since  the  amount  of  deougaing  effort  reaui red  to  achieve  the 
primary  objective  of  the  thesis  could  not  be  accurately 
determined,  several  suoqoals  were  established  which  would  be 
undertaken  if  adeauate  time  was  available.  These  subgoals 
included  the  intearation  of  the  serial  printer,  the  cassette 

o 


tape  arive  and  the  RS-232  compatible  asynchronous 
communication  interface  with  the  basic  MTS  program. 

C.  PKOttLtM  DEFINITION 

Since  an  undetermined  proportion  of  the  work  required  to 
accomplish  the  primary  goal  of  this  thesis  would  oe  the 
debugging  of  a major  software  project*  it  was  decided  to 
improve  upon  the  debugging  tools  available.  At  the  outset* 
the  only  tool  available  was  the  Sycor  Model  340 
Communications  Terminal.  This  terminal  was  desiqneo  for  an 
earlier  version  of  the  Sycor  440  system  and  the  scope  of  its 
useful  debugging  commands  was  quite  limited.  Therefore*  tne 
development  of  the  MTS  Debugger  Tool  (MDT)  was  undertaken, 
written  in  a systems  development  language  called  ML-HO* 
written  oy  L.R.8.  Pedroso  at  NPS  in  1475*  this  tool  greatly 
assisted  in  the  accomplishment  of  the  thesis  goals.  A 
detailed  description  of  ML-80  is  contained  in  Ref.  11. 

Once  debugging  of  the  basic  MTS  program  was 
accomplished*  several  test  programs  were  written  to  check 
the  various  tMTS  service  calls*  in  particular*  the  disk  and 
terminal  I/O  functions.  Flawless  operation  of  these 
routines  was  reouireo  prior  to  implementing  an  operatinq 
system  with  MTS.  A detailed  description  of  the  steps 
required  for  the  implementation  of  a user  operating  system 
on  the  Sycor  440  Clustered  Terminal  System  is  contained  in 
the  later  chapters. 
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II.  SYCGR  440  HARDWARE  DESCRIPTION 


The  Sycor  440  Clustered  Terminal  Processing  System 
located  in  the  NPS  microcomputer  laooratory  consists  of  a 
Centronix  serial  printer,  four  display  terminals,  the  Sycor 
model  340  communications  terminal,  an  RS-232  asynchronous 
communications  interface,  ana  a desk-high  control  unit 
containing  a cassette  drive.  The  440  control  unit  contains 
the  system  logic  and  memory,  consisting  of  two  Intel  6080 
processor  chips,  64K  of  random  access  memory  CRAM),  driver 
interfaces  for  all  oerioherals,  a five  meqabyte  miri-aisk 
and  the  cassette  tape  drive. 

One  of  the  two  8000's  located  in  the  440  control  unit 
serves  as  a controller  for  the  five  megabyte  mini-disk.  The 
mini-disk,  which  is  the  primary  auxiliary  storage  device  for 
the  440  system  holds  the  system  software  including  both  the 
Svcor  and  the  MTS  ooerating  systems  as  well  as  the  users' 
files.  The  mini-disk  is  a single  platter,  movable  head  disk 
which  is  seamented  in  512  byte  sectors.  There  are  800 
tracks  on  the  disk  with  13  sectors  oer  track.  Data  transfer 
oetween  RAM  ana  the  mini-disk  is  via  direct  memory  access 
(DMA).  Ihe  mini-disk  controller  communicates  with  the  host 
8080  CPU  through  a 13  byte  disk  control  clock  (DCP)  located 
at  a fixed  location  in  memory  tl). 

Ihe  other  8080  chip  found  in  the  440  control  unit  serves 

Ihe  8080  intruction  set  consists  of  78 


as  the  system  CPU 


data  transfer*  arithmetic*  logical*  branch*  stack*  I/O*  and 


if 


machine  control  instructions  1 8 J . A comorehens i ve  set  of 
interrupts  including  timer,  auxiliary  storage*  and 
peripheral  device  interrupts  are  provided  by  the  Svcor  44Q. 

Control  information  and  data  are  exchanged  between  the  8080 
CPU  and  the  Sycor  peripheral  devices  through  the  I/O  ports* 
or  latches*  provided  on  the  8080  chip. 

The  Sycor  440  system  supports  synchronous  and 
asynchronous  communication  devices*  up  to  eight  display 
terminals*  serial  and  line  printers  and  card  readers. 

Presently*  the  Sycor  440  system  at  IMPS  is  configured  with 
four  4412  display  terminals  consisting  of  a keyboard  and  CRT 
display  screen.  Each  terminal  is  capable  of  displaying  an 
eight  line  image  of  a 576  byte  terminal  buffer  which  is 
located  in  RAM.  Also  included  is  a Centronix  serial  printer 
which  allows  hard  copy  output  of  files  under  both  the  Sycor 
and  the  MTS  operating  systems.  In  addition  to  the  mini- 
disk, auxiliary  storage  on  the  Sycor  440  is  provided  by  a 
cassette  drive  which  is  located  in  the  control  unit.  This 
drive  provides  a means  for  loading  the  Sycor  system  software 
onto  tne  mini-disk.  The  current  Sycor  440  systems 
configuration  also  includes  an  R5-232  communications 
interface  which  can*  via  telephone  line*  provide  a data  link 
to  both  the  PDP-11  minicomputer  and  the  school's  IbM  3o0. 

Finally*  the  Sycor  440  is  eguiopeo  with  a model  340 
communications  terminal.  This  device  can  be  utilized  as  a 

« 

hardware  deougger  arg  it  also  provides  a software  oacxage 
which  includes  provisions  for  loading  and  dumping  hex  format 


program  files  between  cassette  tape  and  <*40  RAM  and  for 
translating  he*  format  tapes  into  the  Sycor  relocatable 
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format.  This  last  function  of  the  340  terminal  is  imoortant 
since  a mini-disk  file  must  be  in  the  relocatable  format  to 
be  properly  loaded  into  RAM  by  the  Sycor  Loader. 

The  Sycor  <140  system  can  suoport  other  peripherals 
including  magnetic  tape  drives#  floppy  distc  drives#  and  card 
readers#  however#  these  devices  are  not  presently  included 
in  the  Sycor  hardware  in  the  NPS  microcomputer  laboratory. 


III.  MTS  DESCRIPTION 


A.  BACKGROUND 

MIS  was  developed  in  order  to  integrate  the  Sycor  *440 
system  into  the  tutorial  and  development  activities  at  NPS. 
Whenever  possible#  MTS  utilizes  the  Sycor  file  system  to 
avoid  the  duplication  of  system  facilities.  MTS  provides  a 
man-machine  interface  at  the  display  terminals  which  is 
simple#  flexible#  and  convenient#  incorporating  the  best 
features  of  interactive  computer  systems  at  NPS. 

B.  MTS  INTERNAL  DESIGN  FEATURES 

MTS  was  designed  to  provide  a timeshared#  virtual  BOBO 
microcomputer  environment  for  microcomputer  system 
development.  As  a timesharing  system#  MTS  is  characterized 
by  the  followina  features: 

(1)  the  use  of  swapping  to  implement  multiprogramming 
(BJ  the  use  of  interrupt  driven  processor  management  based 
on  a round-robin  scheduling  algorithm 
(3)  the  use  of  virtual  floppy  disks  as  the  primary 
auxiliary  storage  medium 

( 4 J the  sharing  of  a single  dedicated  I/O  device  oy 
multiple  users  111. 

A orief  description  of  each  of  these  features  is  given  in 
the  remainder  of  this  ch-act-er-. 


Swapping  was  chosen  as  the  memory  management  technique 
employee  by  MTS.  Since  the  Sycor  440  does  not  provide 
address  translation  hardware,  it  was  not  possible  to 
implement  the  techniaues  of  either  paging  or  dynamic 
partitioning  of  memory.  Static  partitioning  of  memory  was 
considered,  but  since  the  Sycor  440  provides  no  memory 
protection  in  the  form  of  bounds  registers,  one  task 
executing  in  memory  could  access  another  without  detection. 
Swaoping  provides  physical  as  well  as  logical  seperation  of 
user  tasks.  Each  of  up  to  four  tasks  has  a mini-disk  file 
associated  with  it.  At  any  time  a task  image  may  resioe  in 
RAM  or  in  its  swao  file  on  the  mini-disk,  but  at  no  time  can 
two  task  images  resioe  in  memory  simultaneously?  thus,  task 
integrity  is  maintained.  An  undesirable  effect  of  this 
design  is  that  the  mini-disk  transfer  rate  limits  system 
responsiveness.  An  improved  mini-oisk  controller  is 
currently  being  developed  ov  Sycor  Inc.  Initial  tests  nave 
shown  that  this  controller  will  imorove  the  mini-aisk 
transfer  rate  bv  a factor  of  from  three  to  four. 

In  order  to  guarantee  eouitadle  allocation  of  the  CPU 
resource  to  all  active  tasks,  process  management  of  MTS  was 
designed  around  an  interrupt  driven  task  scheduler.  A task 
retains  control  of  the  CPU  until  a Hardware  timer  generates 
an  interrupt,  signaling  the  eng  of  the  task's  timeslice. 
The  timer  interrupt  handler  then  transfers  control  to  the 
task  scheduler  to  select  a new  task  for  execution.  To 
protect  tne  active  tasx,  a software  lock  is  set  to  prevent 
swapping  until  tne  active  task  returns  from  an  MTS  service 
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call  at  which  time  swapping  is  enabled 


Virtual  floppy  disks  provide  auxiliary  storage  for  user 
programs.  These  simulated  disks  consist  of  77  tracks*  each 
containing  26  sectors.  Each  sector  is  made  up  of  128  bytes 
to  give  a total  capacity  of  2S6K  bytes  of  storage.  The  size 
of  the  virtual  disk  storaae  area  was  chosen  to  reflect  the 
actual  size  of  a physical  floppy  disk*  but  can  be  changed  to 
any  conveneient  size.  Transfer  of  information  between 
memory  and  the  virtual  floooy  disk  is  accomplished  through  a 
DMA  ouffer  in  the  user's  memory  space.  MTS  utilizes  a 
mapping  function  to  convert  a sector  address  into  a mini- 
disk sector  number.  Each  user  has  up  to  eight  virtual 
floppy  disk  drives  available  for  use  with  the  virtual  oisks. 

The  last  major  "*7S  feature  is  the  sharing  of  dedicated 
devices  by  multiple  users.  Since  the  cost  of  a 
microcomputer  CPU  makes  up  such  a small  percentage  of  the 
overall  microcomputer  system  cost*  multiprocessing*  rather 
than  mu  1 t i programm i ng , should  be  the  logical  cnoice  for  the 
design  of  a timeshared  microcomputer  system.  Since  the 
implementation  of  this  concept  was  not  possible  with  the 
Sycor  440  hardware*  MTS  emphasizes  the  sharing  of  the 
remaining  system  resources.  The  sharing  of  the  Sycor  440 
memory  has  already  been  discussed  and  is  implemented  with 
the  use  of  swapping*  provioinci  up  to  4BK  of  HAM  for  user 
programs.  Sharing  of  the  mini-disk  auxiliary  storage  is 
provided  through  the  use  of  the  virtual  floopv  disx  concept. 
MTS  also  allows  for  the  sharina  of  the  Centronix  serial 
printer*  which  is  discussed  in  chapter  V.  A detailed 


I 

discussion  and  description  of  the  oriqinal  MTS  desion  and 
its  implementation  on  the  Sycor  440  hardware  can  be  found  in 
Hef.  1. 

Since  MTS  was  desiqned  to  support  a user  operatinq 
system,  and  since  certain  modifications  and  enhancements 
were  necessary  orior  to  i ncoroor a t ing  an  operatinq  system 
with  MIS,  thesis  work  was  continued  on  the  original  MTS 
program.  The  remaining  chapters  describe  the  steps  which 
were  taken  to  integrate  an  operating  system  into  the  Sycor 
440  / MTS  environment. 

I 


IV.  SYSTEM  DEBUGGING  TOOLS 


A.  SYCUR  HARDWARE 

At  the  outset  of  this  thesis  project/  the  task  of 
debugging  MTS  ana  incorporating  a user  operating  system 
seemed  to  be  a well  aefinea  task/  however/  it  soon  became 
apparent  that  the  tools  available  for  oeougging  MTS  system 
code  were  extremely  limited.  The  Sycor  340  communications 
terminal  provided  the  ability  to  halt  program  execution  at  a 
specified  memory  location  or  breakpoint/  to  examine  the 
contents  of  memory  locations  and  to  modify  tne  contents  of 
memory  locations  prior  to  resuming  program  execution. 
Although  these  features  proved  to  be  extremely  valuable/ 
greater  debugaing  capability  was  necessary  to  realize  the 
thesis  objectives.  Efficient  debugging  required  the  ability 
to  examine  the  general  purpose  registers  and  the  program 
status  word  (PSW)  which  contains  the  accumulator  and  the 
carry,  zero,  parity/  plus/  and  minus  flag  bits.  To 
effectively  debug  conditional  loaic,  the  ability  to  specify 
more  than  one  breakpoint  was  required.  Other  debugging 
functions  which  were  needed  included  the  capabilities  of 
filling  memory/  moving  memory/  and  transferring  information 
between  mini-disk  ana  RAM, 
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B.  MTS  DEBUGGER  TOOL  CMDT ) 


For  the  reasons  listed  above*  the  MTS  Debugger  Tool  was 
developed  as  a first  step  in  the  thesis  project.  This 
software  tool  was  written  as  a distinct  system  module  which 
interfaces  directly  with  MTS.  The  proqram  utilizes  MTS 
service  calls  tor  display  terminal  and  mini-oisk  I/O  and  for 
other  system  functions.  MOT  incorporates  the  option  of 
setting  two  breakpoints  in  memory  to  check  program 
branching.  Another  feature  of  the  MDT  is  the  ability  to 
start  or  to  resume  execution  of  a system  program  with 
interrupts  disabled.  This  feature  was  necessitated  for 
debugging  sections  of  MTS  code  where  the  system  interrupts 
are  disabled.  Additional  MQT  facilities  include  filling 
memory*  setting  the  contents  of  memory  locations*  disolayinq 
contiguous  64  byte  images  of  memory  at  the  terminal*  reaoinq 
a specified  floppy  disk  from  the  mini-oisk  into  memory*  and 
transferring  data  between  RAM  and  the  mini-disk. 

Ihe  MUT  greatly  enhanced  the  debuqgina  phase  necessary 
for  providina  an  operating  system  on  the  Sycor  aao  hardware 
for  student  use  at  NFS.  The  debuqger  resides  in  the  system 
area  of  memory  where  it  is  still  available  should  the  need 
for  it  arise.  A detailed  guide  for  the  use  of  the  MDT  is 


contained  in  the  comment  section  of  the  source  program  which 
is  included  with  the  MTS  Program  Listings. 


V.  MTS  ENHANCEMENT 


Developing  the  MTS  debugger  not  only  facilitated  the 
debugging  of  MTS  cede*  but  it  also  hastened  the  remaining 
development  of  the  basic  MIS  program.  With  the  aia  of  mot 
several  procedures  in  the  monitor  and  the  service  modules  of 
MTS  were  modified  to  accommodate  an  operating  system.  Major 
areas  of  modification  to  the  original  MTS  code  are  discussed 
in  tne  following  sections. 

A.  FILt  INTEGRIfY 

Procedures  for  the  orotection,  unorotection,  and 
restriction  of  virtual  floppy  disks  with  a four  character 
"passkey"  were  developed  to  replace  the  dummy  procedures  in 
the  original  MTS  coca.  It  was  felt  that  the  completion  of 
these  routines,  which  provide  for  read  and  write  protection 
of  user  tile  space,  was  essential  since  MTS  would  eventually 
support  a multiuser  environment.  A detailed  explanation  of 
these  MIS  commands  is  presented  in  the  MTS  User's  Guide. 

o.  3YSIEM  LOAD  PROCEDURE 

Another  enhancement  to  MTS  involved  a modification  to 
the  MTS  / SYCOR  interface  which  permits  the  loading  of  MTS 
from  the  Sycor  uaO  mini-disk.  This  modification  which  was 
made  to  the  MTS  initial  program  load  routine  causes  a 


relocation  of  MTS  code  from  1200H  to  OH  in  memory  as  the 
system  is  loaded.  This  shift  of  code  is  necessary  for  the 
successful  operation  of  MTS  code.  This  change  resulted  in 
an  improved  user  environment  and  eliminated  a tedious  five 
to  ten  minute  load  from  cassette  tape#  reolacing  it  with  a 
much  simplified  ten  to  fifteen  second  process.  At  the  same 
time*  this  modification  allowed  for  the  disconnection  of  the 
Sycor  3<10  communications  terminal  which  was  used  for  loaainq 
MTS  from  cassette  tape.  Removing  dependency  on  this  major 
piece  of  system  hardware  is  considered  a significant  system 
enhancemen t . 

C.  PHlNTtR  INTEGRATION 

As  the  dedu going  of  MTS  code  neared  completion*  a 
decision  was  made  to  incorporate  the  Centronix  serial 
printer  as  oart  of  the  system.  Previously*  a m i c roc ompu t e r 
user  who  desired  a hard  copy  of  a program  needed  to 
interface  with  the  POP-11  minicomputer's  line  printer. 
Since  there  is  only  one  data  transmission  line  between  the 
PDP-11  and  the  m i c rocomput ers  located  in  the  NPS 
microcomputer  laboratory*  only  the  user  working  at  the 
microcomputer  system  with  this  data  line  connection  could 
access  the  PDP-tl's  line  printer.  Thus*  a user  with  ooth 
microcomputer  and  ana  PDP-11  familiarity  could*  after  some 
inconvenience*  obtain  a printed  listinq.  Obviously*  this 
user  environment  is  not  satifactory  for  the  programmer  who 


desires  to  work  only  with  a microcomputer  system 


For  this 


reason#  line  printer  incorporation  with  MTS  was  considered 
essent i a 1 . 

Certain  factors  greatly  affected  the  design  of  the 
printer  interface  with  MTS.  Originally#  the  concept  of 
using  spool  files  for  each  user  desiring  the  use  of  the 
printer  was  given  much  consideration.  This  concept  was  in 
keeping  with  the  overall  virtual  design  of  MTS.  It  would 
allow  a user  to  output  his  text  to  a printer  spool  file  on 
the  mini-disk  and  then  permit  him  to  continue  work  at  his 
terminal.  The  information  in  the  spool  file  would  be 
printed  as  the  printer  became  available.  In  theory#  the 
concept  of  spooling  printer  information  for  each  user  seemed 
an  ideal  solution  to  printer  management  ana  was  compatible 
with  the  overall  design  philosophy  of  MTS.  However#  the 
operation  of  the  MTS  swapping  function  showed  that  the 
mini-disk  access  times  were  too  high  to  provide  efficient 
direct  memory  access  (DMA)  for  large  spool  files.  The  fact 
that  the  memory  buffer  for  the  output  to  a printer  file 
would  be  bl 2 bytes#  the  1 enath  of  a mini-disk  sector#  meant 
that  a considerable  numoer  of  mini-disk  accesses  would  oe 
required  to  write  to  a spool  file  and  to  output  spool  file 
information  to  the  printer.  Several  users  makinq 
simultaneous  requests  to  use  the  printer  would  cause  a 
bottleneck  in  the  overall  system  operation.  For  this 
reason#  it  was  decidec  to  dedicate  the  printer  to  the  first 
user  requesting  the  device  and  to  advise  all  other  users 
requesting  the  orinter  that  the  device  is  in  use.  Since  all 
four  terminals  are  located  in  the  same  area  of  the 
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microcomputer  laboratory,  this  decision  seemed  to  be  a 
Reasonable  alternative. 

Because  of  provisions  made  in  the  original  design  of 
MTS,  implementation  of  the  printer  routine  was  accomplished 
with  few  problems.  A 51 d byte  buffer  area  was  available 
between  locations  100H  and  300H  in  the  system  area  of 
memory.  Ihe  printer  routine  was  coded  such  that  each  time 
this  buffer  is  filled  with  data  directed  for  the  printer, 
the  contents  of  the  buffer  is  saved  in  a specific  print  file 
on  the  Sycor  mini-dis*.  This  process  is  continued  until  me 
control-Z  character  is  transmitted  indicating  an  end  of  tile 
(EOF).  Ihe  EOF  character  triagers  the  initial  data  output 
to  the  line  printer.  Once  the  intitial  character  has  been 
output,  the  printer  interrupt  causes  the  remaining  data  to 
be  output  to  the  printer  on  an  interrupt  basis.  When  the 
EOF  character  is  encountered,  the  printer  control  flag  is 
turned  off  and  the  printer  buffer  pointers  are  reset. 

The  recovery  feature  of  MTS  was  modified  to  accommodate 
the  serial  printer  should  a system  crash  occur  durina  the 
output  of  information  to  the  printer.  This  feature  is  made 
possible  since  all  of  the  printer  parameters  are  saved  in 
the  recovery  file  with  the  other  system  parameters  needed  to 
recover  MTS  after  a system  crash.  If  the  user  who  has 
control  of  the  printer  at  the  time  of  the  malfunction  is  not 
the  task  which  caused  the  problem  then  his  printer  output 


will  be  reinitiated  when  recovers 


VI.  IMPLEMENTA riON  OF  AN  OPERATING  SYSTEM 

A.  OPERA  I ING  SYSTEM  SELECTION 

/then  the  debugging  of  MTS  code  was  near  completion  the 
modification  of  an  operating  system  for  the  Sycor  system 
whicn  would  supoort  program  development  in  the  NPS 
microcomputer  laboratory  could  De  undertaken.  Initially#  a 
decision  was  made  as  to  which  ooerating  system  to  implement 
with  MIS#  the  choices  being  either  ISIS— II#  which  is  the 
Intel  Coro,  system  or  CP/M»  which  was  developed  by  Digital 
Research.  Pefs.  d and  15  contain  information  pertaining  to 
these  systems.  Since  the  basic  MTS  design  would  have  to  oe 
modified  to  accommodate  I S I S — 1 1 and  because  the  CP/m 
operating  svstem  with  its  support  programs  was  already  in 
use  in  the  NPS  microcomputer  laboratory,  a decision  was  made 
to  incorporate  CP/M  on  the  Sycor  440  / WTS  system. 

d.  OPERA  I ING  SYSTEM  IMPLEMENTATION 

Prior  to  loading  the  CP/m  ooerating  system  onto  the 
Svcor  44U  mini-disk  certain  modifications  were  necessary  to 
account  for  the  difference  in  svstem  addresses  between  the 
Intellec  H tyoe  m i c rocompu t e r where  CP/m  was  currently  heina 
used  and  the  Sycor  440  system  with  resident  MTS.  Following 

the  guidelines  of  Refs.  4 and  5,  a customi basic  I/O  1 

* 

proaram  (CBIUS),  a customized  CP/M  loader  program  CCL0AD1, 
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ana  a program  to  store  CBIUS  and  CLOAD  onto  the  mini-disk 
(PlHSYS)  were  written  with  address  and  offset  changes  to 
match  CP/M  with  the  Sycor  svstem. 

The  main  difference  oetween  the  two  systems  is  that  the 
version  of  CP/M  which  was  written  for  the  Intellec  B Pod  BO 
microcomputer  is  stored  starting  at  memory  location  0 with 
the  command  control  program  (CCP)  and  the  basic  disk 
operating  system  (BDUS)  starting  at  hexadecimal  location 
29QUH.  A 1 so  > the  user  or  transient  program  area  (TPA) 
Degins  at  hexadecimal  location  100H.  Un  the  Sycor  U<40  CP/M 
has  been  modified  such  that  code  is  stored  at  memory 
location  9000H  with  CCP  and  BOOS  storea  starting  at  location 
o9uUH  in  memo r y . The  TPA  is  based  at  memorv  location  HlOOn. 
This  change  allows  for  the  1 oadi no  of  MTS  code  between  OH 
and  UOOOh.  An  exception  to  this  description  of  memory 
storage  occurs  if  a user  desires  a larger  memory  image  of 
32K  pytes  or  9 B K bytes  of  HAM.  In  these  cases/  the  startinq 
location  of  the  CCP  and  BOOS  modules  would  oe  at  either 
A900M  or  F900H/  depending  on  the  PAM  image  size  oesireo. 
The  CHIUS  ana  CLOAD  programs  for  these  larger  CP/M  systems 
must  also  be  modified  to  accommodate  these  changes.  A 
depiction  of  a memory  image  of  CP/M  for  a loK  system  with 
MTS  loaded  is  shown  Del ow. 
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CP/M  MEMORY  MAP 

Once  the  CP/M  ooerating  system  was  stored  on  disk,  the 
task  o*  recompiling  various  utiltv  programs  was  started. 
The  text  editor  (ED)  and  status  (STAT)  programs  were  tne 


first  programs  to  oe  modified  and  loaded  on  the  mini-disk. 
Regeneration  of  an  ooject  module  for  these  utility  proarams 
with  a load  address  of  4100H  vice  100H  was  the  only  coae 


change  made  to  the  utility  programs, 


After  a new 


hexadecimal  ooject  file  was  generated  and  stored  in  the 
PDP-11  file  soace,  the  Sycor  440  Interactive  Teletype 
Simulator  (ITS)  program  was  utilized  to  transport  the  object 
code  via  telephone  line  from  the  PDP-11  to  the  Sycor  mini- 
disk. The  MDT  was  then  used  to  read  the  desired  utility 


program  from  disk  into  memory.  Once  the  new  program  was  in 
memory,  the  save  function  of  Cp/M  was  utilized  to  write 
memory  onto  the  virtual  disk,  creat  i no  a file  entry  in  trie 


CP/M  file  directory. 


2o 


The  primary  goal  of  this  thesis  project  was  to  implement 
an  operating  system  on  the  Svcor  440  microcomputer  system 
capaole  of  supporting  program  development  in  the  NPS 
microcomputer  laooratory.  Enroute  to  this  goal/  the 
debugging  and  modification  of  existina  system  proarams  which 
had  been  written  during  the  design  and  development  phase  of 
the  Microcomputer  Timeshared  System  was  necessary. 

The  first  steo  toward  this  aoal  was  the  development  of 
the  M 1 o oeougging  tool.  This  software  debugger  complemented 
the  existing  Sycor  mocel  340  terminal  hardware  debugger  and 
facilitated  the  debugging  and  expansion  of  the  original 
coae . 

The  design  of  MTS  provided  areas  for  enhancements  to  the 
basic  system.  Procedures  were  written  to  protect#  restrict# 
and  remove  protection  from  user  tile  space.  It  was  felt 
that  these  routines  were  essential  to  provide  file  security 
on  a multiuser  system.  The  Centronix  serial  printer  was 
integrated  into  MTS  and  is  the  only  printer  in  the  NPS 
microcomputer  laooratory  which  directly  interfaces  with  a 
microcomputer  system.  This  additional  resource  represents  a 
valuaole  tool  for  microcomputer  program  development. 

Following  the  guidelines  o*  Kefs.  4 and  5 the 
modification  of  CP/K  was  accomplished  and  the  revised 
operating  system  was  loaded  onto  the  Sycor  440  system. 
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During  the  implementation  of  CP/M  on  the  Sycor  440»  it 
•as  found  that  certain  enhancements  to  the  Sycor  hardware 
would  greatly  improve  the  overall  system  oerformance.  These 
enhancements  include  a fast  multisector  mini-disx  controller 
which  is  presently  unoer  development  at  Sycor  Inc.  This 
enhancement  should  he  given  high  priority  since  the  response 
time  of  the  system  with  three  or  four  users  logaed  into  MTS 

/ CP/M  is  noticably  slower  than  most  timeshared  systems. 

- 

j 

Also»  to  assist  in  future  integration  of  the  Sycor  440  with 
the  present  microcomputer  facilitieSr  the  addition  of  the 
Svcor  floppy  dis*  drive  would  be  auite  beneficial. 

A secondary  goal  cf  the  thesis  project  was  to  continue 
an  evaluation  of  ML -80  as  a larae  system  development 
lanquage.  During  the  modification  of  MTS  code*  it  was  found 
that  ML-ttO  provided  manv  advantages  over  assembly  language 
for  microcomputer  programming.  The  algebraic  notation 
provided  oy  the  1 anguaoe  proved  to  be  especially  convenient 
for  working  at  the  register  level.  Also  the  readability  of 
source  code  was  extremely  valuable  durinq  the  initial  phase 
of  studying  and  understanding  MTS.  The  drawbacks  of  ML-oO 
listed  in  chanter  Vi  of  Ref.  1 were  found  to  be  valid. 

Besides  the  recommendations  for  improved  hardware 
mentioned  acove»  there  are  several  areas  for  future  MIS 
development.  These  areas  include  the  integration  of  the 
cassette  tape  drive  and  the  RS-232  asynchronous 
communications  interface  into  the  existing  MTS 
configuration. 


28 


APPENDIX  A 


MTS  USER'S  MANUAL 


The  puroose  of  this  document  is  to  provide  the  user  with 
the  information  necessary  to  utilize  the  Microcomputer 
Timeshared  System  (MTS).  This  manual  was  originally  preoared 
Pv  K.  J.  Brown  and  C.  R.  Bullock  in  March  1977  and  revised 
py  S.  J.  Larro  and  B.  L.  Knouse  in  Seotember  1977. 

The  contents  of  this  manual  include  information  on 
setting  up  the  Svcor  4«U  System  for  use  with  MTS » load  inn 
and  initializino  MTS»  and  interfacing  with  the  MTS  and  LP/M 
operating  systems.  Sections  A and  b provide  a aeneral 
description  of  MTS  design  concepts  and  the  Sycor  dUO  System. 
Section  L provides  the  detailed  information  necessary  to 
interface  the  Sycor  auo  System  and  mis.  Section  D contains 
information  on  the  terminal  design,  key  functions,  and 
system  commands  which  enaole  the  terminal  user  to 

communicate  witn  m \ s . Section  E aescrioes  the  MTS  status 
line  display  and  defines  the  various  messages  displayed  cv 
MTS.  Section  F details  the  services  oroviaeo  tor  a user 
program  py  mts,  and  the  limitations  on  a user  program 
running  in  the  MTs  environment.  Section  G provides  the 
information  required  *o  convert  orograms  written  for 
oasic  version  of  CP/M  to  the  MTS  version  of  CP/M.  The 
complete  MTS  desion  specification  and  urplerentation 

information  is  contained  in  Ref.  1 and  Ref.  e. 
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A.  Mrs  CONCEPTS  AND  DEFINITIONS 

The  acquisition  of  the  Sycor  aao  Clustered  Terminal 
Processing  System  provided  an  opportunity  for  development  of 
a shared  environment  for  microcomputer  research  and 
development.  In  response;  the  Microcomputer  limeshared 
System  (MIS)  was  designed  and  built  to  orovioe  the  basic 
machine  interface  ana  system  management  functions  necessary 
for  a shared  environment. 

The  purDose  of  VTS  is  to  provide  an  interface  between 
the  bare  Sycor  440  machine  and  up  to  four  user  tastes 
executing  concurrently.  The  MTS  environment/  as  viewed  ov 
the  user/  provides  all  the  microprocessor  facilities 
required  for  microcomputer  research  and  development.  From  a 
system  point  of  view/  M|S  manaaes  the  available  hardware  to 
ensure  that  the  hardware  resources  are  eauitably  and 
efficiently  allocated  to  competing  user  programs.  RTS  is 
Designed  to  interface  with  a version  of  CP/V  modified  to  run 
on  the  Sycor  440.  This  enables  all  systems  ana  proarams 
designed  to  run  with  tne  CP/M  operating  system  to  run  on  tne 
Sycor  <440  with  minor  modifications  (such  as  a change  in  load 
address).  This  includes  all  the  development  facilities 
availaole  with  CP/M,  such  as  the  text  editor,  dynamic 
deougaer,  assembler,  etc.  A list  of  references  for  CF/M  and 
its  facilities  is  contained  in  section  G Ref.  3 throuah  Ret. 
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b.  SYCOR  440  HARDWARE  DESCRIPTION 


The  Sycor  440  Clustered  Terminal  Processing  System  at 
NPS  is  composed  of  a control  unit  containing  a cassette  tape 
drive*  four  disolay  terminals*  a Centronix  matrix  printer/ 
and  a Sycor  Model  340  Communications  Terminal. 

The  control  unit  is  the  heart  of  the  440  system. 
Contained  within  a waist-high  cabinet  are  random  and  control 
logic  including  two  8080  chips*  b4K  of  ranaom  access  memory 
(RAM),  interfaces  for  all  oerioheral  devices*  a five 
megaoyte  fixed  dis<*  as  well  as  the  aforementioned  cassette 
t ape  drive. 

Located  together  on  the  front  of  the  control  unit  are  an 
UN/UFF/RESET  Keylock  and  system  status  oanel.  Turning  the 
Keylock  to  the  RESET  position  activates  a oiaanostic 
bootstrap  orogram  locatea  in  read-only  memory  (ROM).  This 
oootstrap  proaram  performs  several  diagnostic  tests  on  the 
CPu*  memory,  ana  system  load  aevice  (cassette  or  mini-disx) 
and  then  initiates  system  loadina.  The  status  of  the 
diagnostic  tests  is  inaicatea  oy  a series  of  red  lights  on 
the  system  status  panel.  These  lights  are  turnea  off  in 
sequence  as  each  phase  of  the  test  is  successfully 
completed.  when  all  red  liahts  have  been  turned  off*  three 
green  lights  on  the  oanel  will  remain  lit  to  indicate  that 
all  power  suoolies  are  functionina  normally.  There  is  also 
one  additional  red  light  at  the  bottom  of  the  system  status 
oanel  which  only  comes  on  if  the  temperature  inside  the 
control  unit  cabinet  exceeds  normal  oceratnq  limits. 
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One  of  the  two  8000  chips  located  in  the  <*40  control 


unit  serves  as  the  system  CPU.  The  8080  instruction  set 
consists  of  the  78  data  transfer,  arithmetic,  logical, 
branch,  stack,  I/O,  and  machine  control  instructions 
described  in  Ref.  9.  The  Sycor  4U0  provides  a comprehensive 
set  of  prioritized  interruots  including  a timer,  peripheral 
device,  and  auxiliary  storage  device  interrupts.  Passing 
control  information  ana  data  between  the  8080  CPU  and 
peripheral  devices  is  accomplished  by  utilizing  the  I/O 
ports  (called  latcnes  in  Sycor  literature)  oroviaea  on  the 
6080  cnip. 

The  second  8000  chip  found  in  the  control  unit  acts  as  a 
controller  for  the  mini-disk.  The  mini-aisk  is  a single 
platter,  movable  head,  fixed  disk  blocked  into  512  bvte 
sectors.  There  are  600  traces  on  the  disk  with  13  sectors 
per  track.  Data  transfer  between  RAM  ana  the  mini-aisk  is 
via  direct  memory  access  (DMA).  The  mini-disk  controller 
communicates  with  the  host  ftu80  CPU  through  a 13  byte  disk 
control  Dlocx  (OCB)  located  at  a fixed  location  in  memory. 

Peripherals  supoorted  by  the  Sycor  «<*0  system  include 
binary  synchronous  and  asynchronous  communication  devices, 
uo  to  eight  disolay  terminals,  serial  ana  line  orinters,  and 
card  readers.  The  NPS  configuration  has  four  display 
terminals  consisting  cf  a t y pew r i t e r- 1 i ke  keyboard  and  CRT 
disolay  device.  Each  terminal  displays  a DM  A imaqe  of  a 57b 
byte  terminal  buffer  located  in  RAM.  Keyboard  input  is 
accomplished  by  software  translation  of  a keyboard  matrix 
code  into  the  corresponding  ASCII  character  code.  For 


hardcopy  output  the  NPS  440  includes  a Centronix  serial 
matrix  printer. 

Several  different  auxiliary  storage  Devices  may  be 
attached  to  the  Sycor  440  in  adoition  to  the  mini-disk. 
These  include  magnetic  taoe  drives,  cassette  tace  drives, 
ana  floppy  disk  drives.  The  NPS  configuration  includes  a 
cassette  taoe  arive  located  in  the  control  unit.  This  drive 
provides  compatibility  between  the  Sycor  440  system  and  the 
Moael  340  deougaer. 

The  Model  34  0 Communications  Terminal  is  a complete 
system  in  its  own  right  which  is  marxeteo  by  Sycor  for 
remote  job  entry  CHJE)  applications  [101.  when  utilized  as  a 
hardware  debugger,  the  340  is  augmented  with  4ft  of  PAM  and  a 
backplane  coupling  to  a special  wire-wrapped  interface  board 
in  the  440  control  unit.  The  340  debuager  is  provided  with 
a software  package  which  includes  provisions  for  loading  and 
dumping  hex  format  program  files  between  cassette  tape  and 
440  RAM,  examination  and  modification  of  individual 
locations  in  440  memory,  inserting  breakpoints  and  traps  in 
programs  executing  on  the  440,  and  single-steeping  through  a 
proaram  executing  one  instruction  at  a time  1121. 

There  are  several  hardware  characteristics  of  the  Sycor 
440  system  which  strongly  influenced  the  implementation  of 
MTS.  The  most  important  of  these  are: 

(1)  tiOdO  CPU  architecture 

(21  terminal  design 

(3)  mini-disx  interface 

(4)  single-state  CPU 
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(S)  lack  of  memory  orotect i on 

The  impact  which  each  characteristic  had  on  the  design  and 
implementation  of  MTS  is  covered  in  Ref.  1. 


So 
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C.  SYCOR  440/MTS  INTERFACE’ 


The  Microcomputer  T i meshareri  Svstem  was  desiqned  and 
built  tor  use  on  the  Sycor  440  Clustered  Terminal  Processing 
System.  For  this  reason  MTS  depends  heavily  on  specific 
features  of  the  Sycor  implementation  of  an  eOtiO  based 
microprocessor.  This  dependence  includes  reliance  on  Sycor 
supoliea  software  as  well  as  the  440  hardware*  but  becomes 
most  apparent  to  the  user  in  the  two  areas  of  loading  the 
system  ana  maintainine  system  files. 

1.  Loading  the  System 

The  MTS  object  module  resides  on  the  mini-disk  in  a 
relocatable  format  acceptable  to  the  Sycor  System  Loader. 
The  System  Loader  is  called  in  to  memory  ov  setting  tne 
internal  system  definition  switch  to  5 and  turning  the 
ON/OFF/RESET  keylock  on  the  control  unit  to  the  RESET 
position.  After  MTS  is  loaded  execution  beams  with  the 
initial  prooram  load  (IPL)  module.  The  Query  RECOVERY? 
(Y/N)  is  displayed  at  terminal  0.  The  operator  should  enter 
Y if  recovery  is  desired*  otherwise  N.  In  the  event  that 
the  IPl  operation  is  halted  due  to  a file  access  error  (tile 
non-existent  or  cannot  be  read)  the  message  IPL  AdORTED 
followed  by  a system  file  name  will  appear  at  terminal  0. 
After  correcting  the  problem  the  operator  may  reload  in  the 
normal  manner.  When  the  IPL  ABORTED  message  is  accompanied 
bv  the  HARDWARE  ERROR  terminal  alert  it  indicates  that  an 
abnormal  completion  code  was  returned  by  the  mni-oi  sk 
controller  after  a read  operation.  Further  investic 
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using  the  Svcor  utility  programs  FIXNAR  or  ..ZAP  may  be 
required  to  identify  the  problem  H1J. 

To  summarize*  loading  MTS  involves  the  following 

steps : 

(1)  set  internal  system  definition  switch  to  3 

(2)  turn  ON/OFF/RESET  keylock  to  RESET 

(3)  wait  two  minutes  while  mini-disk  reacnes  operating 
soeed  and  all  red  liahts  on  control  unit  status  panel 


go  out 

( 4 )  respond  to  RECOVERY?  Query  with  N to  initialize  a new 


system  or  Y to  recover  from  the  1 J operating 

► ■si.  "!9r  w»  *.**%•  * •»  ■«r«*r  ~ 

session. 


Loading  the  Sycor  operating  system  involves  the 
to)  lowing  steps  : 

(1)  set  internal  definition  switch  to  1 

(2)  turn  ON/OFF/RESET  Keyloc*  to  RESET 

(3)  wait  two  minutes  while  mini-disk  reaches  operating 
soeed  and  all  red  lights  on  the  control  unit  status 
panel  go  out 

(R)  the  Svcor  operating  system  will  resoona  witn  the 
prompt  READY. 


2.  Recovery  File  - .MTSRCVR 

MIS  supports  limited  recovery  after  a user  task 
causes  a system  crash.  The  recovery  feature  is  implemented 
by  copying  the-  contents  of  the  system  state  block  (SS6) 
after  each  swap  to  a mini-disk  file  known  as  the  recovery 
file.  Since  the  SSb  defines  the  state  of  the  system  at  any 
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instant*  recovery  may  Oe  accomplished  Oy  reloading  the  SS0 
from  the  recovery  file*  deletinq  the  task  causing  the  crash, 
ana  proceeding  with  normal  execution.  These  actions  are 
performed  by  the  MTS  IPL  module  when  the  answer  to  the 
PECO VERY  ? query  is  Y. 

whenever  mjs  is  running,  a douo 1 e-sec t o r file  named 
.MTSRCVR  must  be  listed  in  the  mini-disk  directory.  in  tne 
event  this  file  is  deleted*  it  may  be  recreated  under  the 
Sycor  ooerating  system  by  using  the  command 
CREATE  .MTSRCVR  iM  = 2 

The  contents  of  the  recovery  file  at  the  completion  of  an 
ooerating  session  are  only  meaningful  if  recovery  will  oe 
requested  when  VTS  is  next  loaded.  Therefore*  under  normal 
circumstances  this  file  is  not  needed  when  MTS  is  not 
runn i ng . 

3.  Swao  Files  - . MTSSwPx 

One  of  the  most  fundamental  requirements  on  any 
timesharing  system  is  maintaining  independence  of  user  tasxs 
executing  c one u r ren t I y . MTS  satisfies  this  reauirement  oy 
maintaining  physical  as  well  as  logical  separation  of  all 
user  tasks  in  the  system.  Associated  with  each  of  the  four 
terminal  tasks  is  a mini-disx  tile  used  to  store  a core- 
image of  the  task  when  it  is  waitinq  for  tiie  CPU  or  blocked 
pending  some  I/O  operation.  At  any  given  instant  a task  mav 
reside  on  the  disk  in  its  swao  file  or  in  memory#  but  at  no 
time  can  two  or  more  tasks  reside  in  memory  simultaneously. 

A task's  swao  imaoe  consists  of  17  bytes  reserved  ov 
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MTS  for  environment  ana  virtual  device  control  data  followed 
by  up  to  48,896  bytes  of  user  task  memory  image.  Thus,  the 
maximum  allowable  swac  image  is  approximately  40K  pytes. 
There  is  no  minimum  value  for  the  size  of  a swao  image.  The 
swap  image  size  or,  ecu i va 1 ent  I y , the  amount  of  memory  space 
available  to  the  user  is  variable  from  0 to  40K.  In  fact, 
the  user  is  encouraqea  to  use  the  smallest  swap  image  wnich 
satisfies  his  requirements  as  smaller  swap  imaaes  tena  to 
improve  system  resoons i veness  . 

A 40K  swap  image  will  fill  9fc>  sectors  on  the  mini- 
aisk.  Therefore  eacn  of  the  tour  swap  files  shoula  normally 
oe  9t>  sectors  Iona.  In  the  event  that  mini-disk  space  is 
limited,  or  that  user  tasxs  do  not  requre  a 40K  swap  image, 
MTS  will  automatically  adjust  to  any  file  size  qreater  than 
16i\  (32  sectors).  Sixteen  kilobytes  was  selectea  as  the 
minimum  and  default  system  size  since  it  provides  a 
reasonable  amount  of  memory  for  running  the  CP/M  operating 


system. 

The  I PL 

modu 1 e 

performs 

a size 

test  on 

each 

swao 

file  to 

ensure 

that 

it  is  at 

least 

32 

sec  tors 

1 onq . 

MIS 

cannot  be 

1 oaded 

i f any  swao 

file 

i s 

sma 1 1 e r 

than 

32 

sect  o r s . 


if 

i t becomes 

necessary  to 

c h anqe  the  size  of 

any  or 

a 1 ) 

swap 

files,  the 

f i 1 e ( s ) 

must 

first  be  deleted  f 

rom  tne 

mini 

-disk 

di rectory. 

This  is 

accomolished  under  the 

Sycor 

operating  svstem  using  tne  command 
DELETE  <filename> 

where  <f  i 1 e"ame>  may  he  . MTSSrtPO,  .MJSSVvPl,  . MTSSrtP2»  or 
The  number  in  each  case  indicates  the  terminal 
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with  which  the  file  is  associated.  After  the  file  has  teen 
deleted*  it  may  be  recreated  by  using  the  command 
CREATE  <filename>  N=96 

for  each  file  which  has  oeen  deleted.  If  swao  files  smaller 

than  48K  are  desirec,  the  value  of  N in  the  CRfcAIE  command 

string  should  be  two  times  the  reoui red  memory  space  in 
kilooytes,  but  no  less  than  32. 

The  contents  cf  the  swap  files  upon  completion  of  an 

MTS  operating  session  are  only  meaningful  if  recovery  will 

be  requested  when  v T S is  next  loaded.  Under  normal 
circumstances  these  four  files  are  not  required  when  MTS  is 
not  running. 

9.  Configuration  File  - .MTSCNFG 

As  explained  in  section  A.2.c,  MTS  identifies 
virtual  floopy  disxs  by  a logical  disk  number  ranging  from  0 
to  51.  Since  each  virtual  floppy  dis*  actually  resides  in  a 
mini-disk  file  created  under  the  Sycor  operating  system, 
there  must  be  some  mechanism  for  maopinq  a logical  disk 
number  into  a filename  contained  in  the  mini-disk  directory. 
This  function  is  performed  by  the  configuration  file 
.MTSCNFG. 

The  configuration  file  is  maoe  up  of  32  entries  of 
thirteen  bytes  each  contained  on  a single  mini-disk  sector. 


Each  entry  has  the  format 
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J FILENAME  1 KEY  J F A J 
0 7 8 11  12 

where  FILENAME  is  the  0 to  8 byte  name  of  the  virtual  floopy 
disk  file  as  it  appears  in  the  mini-disk  directory*  KEY  is  a 
0 to  U byte  protection  kev*  PA  is  the  protection  attribute 
of  the  virtual  disk,  i.e.  'P'  for  read/write  orotectton,  'H' 
for  write  protection  only  (restricted  access),  and  blank  for 
no  protection.  The  looical  disk  number  for  each  entry  is 
simoly  the  position  of  that  entry  within  the  file.  For 
example,  the  first  entry  is  assiqned  logical  disk  nu«Cer  0, 
the  last  entry  31,  anc  the  entry  which  is  preceded  oy  17 
other  entries  oecomes  number  17. 

The  configuration  file  is  read  by  MTS  during  tne 
i n i t i a 1 i tat i on  process  performed  by  the  1PL  module.  Tne 
filename  is  extracted  from  each  entry  and  input  to  a routine 
which  searches  tne  mini-aisk  directory.  /ihen  a match  occurs 
the  mini-disk  address  for  the  file  is  read  from  tne 
directory  and  entered  in  a virtual  f 1 oopv  disk  map  taole. 
If  no  match  occurs  for  a oiven  configurat  on  file  entry,  the 
corresponding  logical  disk  number  is  marned  not  availaDle. 
Any  suoseauent  attempt  to  access  that  virtual  disk  will 
result  in  the  terminal  alert  DISK  NO  1 AVAIL  (E.3). 

Since  the  infcrnaHon  contained  in  the  configuration 
tile  is  of  a permanent  nature  and  can  only  be  recreated  with 
great  difficulty,  the  file  .MTSCNFG  should  never  be  deleted 
from  the  mini-disk  file  directory.  in  the  event  the  file  is 
deleted  erroneously,  a new  file  may  be  created  under  the 
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Sycor  operating  system  usina  the  CREATE  ana  BATCH  commands 
and  a backup  cassette  labeled  ".MTSCNFG".  The  commands  are 
entered  as 

CREATE  .MTSCNFG  N=1 

RUN  BATCH  1=/CSST  3=. MTSCNFG 

with  .MTSCNFG  mounted  in  the  cassette  drive.  These  commands 
will  build  a new  file  directory  entry  for  .MTSCNFG  and 
estaolisn  a basic  conf i aurat i on  file  with  32  entries  of  the 
form  .OISKx,  where  x ranges  from  0 to  31. 

The  con f i gurat i on  file  may  be  modified  by  two 

methods . 

First#  immediately  after  the  oasic  configuration 
file  has  been  created  and  loaded  it  may  oe  modifiea  when 
running  under  the  Syccr  operating  system.  Sycor  provides  a 
data  entry  free  form  mode  which  allows  the  terminal  operator 
to  examine  and  modify  tne  contents  of  the  file  til). 
Extreme  care  must  be  exe~cised  when  uDdating  .MTSCNFG  to 
align  each  entry  properly  in  the  file.  MTS  assumes  the  tile 
will  be  in  the  proper  format  when  read#  and  makes  no  attempt 
to  validate  individual  entries.  Note  that  this  methoo  may 
only  be  used  after  the  configuration  file  has  been  loaded 
ana  prior  to  running  MTS.  Once  MTS  has  been  executed  the 
next  methoo  must  be  used. 

Ihe  conf  i gurat  i on  file  may  be  modified  utilizing  trie 
MTS  commands  Protect#  Restrict#  and  Unprotect.  These 
commands  form  the  most  common  method  for  modification  of 
virtual  disk  protection  attributes.  Protect#  Restrict#  and 
unprotect  are  detailec  in  section  D.i. 
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5.  Printer  File  - .MTSPRT 

MTS  supports  the  use  of  the  Centronix  serial  matrix 
printer.  The  printer  feature  is  implemented  Oy  buffering 
characters  in  memory  until  the  51?  byte  orinter  buffer  is 
full.  Next  the  buffer  is  written  to  the  mini-disk  file 
.MTSPRT  and  the  buffering  operation  is  restarted.  When  tne 
eng  of  file  character  is  received*  any  data  in  the  buffer  is 
copied  to  .MTSPRT.  Finally*  the  file  is  read  into  memory 
and  output  to  the  printer  under  interupt  control. 

In  the  event  that  .MTSPRT  is  deleted*  it  may  be 
recreated  under  the  Sycor  operating  system  oy  usino  the 
command 

CREATE  .MTSPRT  N=<file  size> 

where  < f i 1 e size>  is  the  length  of  the  file  in  51?  byte 
mini-disk  sectors.  Because  all  information  is  written  to 
the  printer  file  before  it  is  printed*  the  user  must  insure 
that  the  file  size  is  large  enouqh  to  handle  the  worst  case 
situation.  If  the  user  discovers  the  printer  file  size  must 
be  increased*  the  Sycor  ooerating  system  commands 

DELETE  .MTSPRT 

CREATE  .MTSPRT  N=<file  si ze> 

may  be  used* 

o.  Virtual  Floopv  Disx  Files 

Each  virtual  floooy  disk  resides  on  a block  of 

| 

logically  contiguous  mini-disk  sectors.  This  block  must  be 
allocated  usinq  the  facilities  oroviaed  by  tne  Sycor 
ooerating  system,  specifically  the  command 
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CREATE  <filename>  N=<file  size> 


where  <filename>  is  a 1 to  8 character  name  to  be  entered  in 
the  mini-disk  directory  and  configuration  file,  and  <file 
size>  is  the  length  of  the  file  in  512  byte  mini-oisk 
sectors.  For  the  basic  configuration  file  described  above 
the  <filename>  is  of  the  form  .disk*  where  * ranges  from  0 
to  il.  For  the  standard  256K  byte  floppy  disk  <file  size> 
eouals  512,  i.e.  (256  * 1 02a ) /5 1 2 = 5 1 2 . 

where  a physical  floppy  disk  has  a fixed  capacity  of 
25bK  bytes,  an  ^TS  virtual  disk  may  have  any  convenient  size 
up  to  25oK  bytes.  MTS  assumes  that  the  disk  image  is  made 
up  of  contiguous  128  byte  floppy  disk  sectors  starting  with 
track  0 sector  1,  proceeding  through  the  2b  sectors  of  track 
0 to  track  1 sector  1,  and  so  on  until  track  7o  sector  2o  or 
until  the  virtual  disk  file  is  full.  If  the  virtual  disk 
file  size  is  less  than  512  mini-disk  sectors,  less  tnan  77 
floppy  disk  tracks  will  be  addressable. 

It  is  important  to  note  that  VTS  only  recognizes 
virtual  floppy  disk  files  which  are  entered  in  the 
configuration  file.  The  logical  disk  number  associated  with 
a given  virtual  floppy  disk  file  is  determined  by  that  files 
position  in  .MTSCNFG.  When  the  file  is  initially  entered  in 
the  configuration  file  a protection  key  and  protection 
attribute  may  also  be  entered. 
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0.  MTS/USER  TERMINAL  INTERFACE 


1.  Terminal  Interface  Design 

The  general  format  of  each  terminal  display  is  as 

f o 1 lows: 
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The  numbers  are  decimal  and  specify  character  oositions 
within  the  status  line  and  display  buffer. 


a.  Status  Line 

The  terminal  status  line  is  used  by  MTS  to 
display  three  types  of  status  information: 

(1)  The  current  virtual  drive  and  floppy  disk  assianments 
for  that  terminal. 

(2)  The  size  of  the  user's  swap  imane#  i.e.  the  amount  of 
memory  space  currently  available. 

(3)  Error  messaae  alerts  produced  bv  MTS  system  commands# 
or  resulting  from  user  prooram  calls  on  the  DISPLAY 


MSG  service  routine  (see  F.2.) 


The  status  line  di soiay  format  and  contents  are 
discussed  in  detail  in  section  E. 

0 . Di so  1 ay  Butter 

The  display  buffer  can  holo  uo  to  a maximum  ot 
512  characters.  The  disolay  butter  also  acts  as  an  input 
butter,  holding  the  input  data  until  the  user's  orogram 
requests  it.  Due  to  the  unavoidable  delays  in  user  program 
response  caused  by  swapping  and  aggravated  by  the  relatively 
low  data  transfer  rate  ot  the  mini-disk,  the  MTS  terminal 
interface  provides  character  echoing  and  simple  line  editinq 
teatures.  This  ensures  reasonaole  response  times  to  key 
activation  by  the  user.  Thus,  input  data  can  not  be 
considered  available  to  the  user's  prooram  until  an  input 
line  termination  character  has  been  received  by  MIS.  To 
estaolish  an  input  buffer  tor  a program,  the  user  enters  rne 
data  and  terminates  the  line  by  hitting  the  NEwLINE  or  ENTER 
Keys  on  the  keyboard.  This  establishes  tnat  line  as  an 
input  butter  available  tor  processing  ov  the  user's  program, 
when  NEwLINE  is  entered  MTS  issues  a carriage  return  and 
line  teed  to  the  terminal  screen.  ENTER  causes  termination 
ot  the  current  line  but  MTS  does  not  output  a carriage 
return  and  line  feed  to  the  terminal  screen.  ENTER  is  most 
effective  when  CP/M  commands  are  entered  because  more 
information  can  be  oresented  on  the  MTS  terminal.  Note  that 
the  key  combinations  'I/O  CTL  M*  or  'SHIFT  CR*  (on  the 
number  pad)  will  also  result  in  the  termination  of  an  input 
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line.  Either  of  these  keys#  as  well  as  NEWLINE  and  ENTER# 
may  Qe  used  for  line  termination. 

Unce  an  input  buffer  has  been  established  the 
user  may  continue  to  input  data  on  the  next  line.  The  user 
may  use  any  of  the  line  editing  or  other  cursor  control 
features  on  this  new  line  of  input  data.  However#  this  new 
line  may  not  be  terminated  until  the  user’s  program  has 
processed  the  previous  input  buffer  (see  terminal  alerts 
below). 

Each  character  output  from  the  user's  program  is 
displayed  at  the  current  cursor  position.  Each  output 
results  in  all  input  buffer  oointers  being  reset  to  the 
character  position  at  the  end  of  the  output  data.  Thus#  new 
I/O  will  start  at  this  point.  This  implies  that  if  the  user 
had  been  in  the  middle  of  entering  data  when  the  output 
occurred#  it  must  be  reentered. 

c.  Terminal  Alerts 

The  MTS  terminal  interface  provides  the  user 
with  either  a visual  or  audio  response  to  each  kev 
depression.  Normal  visual  response  is  provided  by  display 
of  the  entered  character  and/or  movement  of  the  display 
cursor.  The  display  cursor  is  a blinking  underscore 
character  which  marks  the  current  position  on  the  screen. 
Data  is  always  entereo  and  displayed  at  the  current  cursor 
position. 

The  audio  responses  consist  of  either  a oeeo  or 
clicx  at  the  terminal.  A terminal  beeo  alert  will  oe 

as 


generated  for  any  of  the  following  conditions 


(1)  An  inout  buffer  is  waiting  to  be  processed  by  the 
user's  program  and  the  terminal  user  attempts  to 
terminate  a new  input  line. 

(2)  An  attempt  is  made  to  move  the  cursor  back  past  the 
start  of  the  current  line.  For  example#  attempting  to 
delete  the  orevious  line  or  character  after  the  line 
has  oeen  enterea  by  a termination  key  will  result  in  a 
beeo . 

The  terminal  click  alert  is  associated  with  the 
display  scrolling  feature.  Since  the  display  buffer  also 
acts  as  an  input  buffer#  scrolling  the  display  when  the  512 
byte  display  buffer  is  full  could  destroy  muut  data  which 
has  not  yet  been  processed.  For  examole#  the  user  could  be 
entering  a 512  character  string.  Uoon  termination  of  that 
input  line#  MTS  will  lock  out  scrollinq  until  the  user's 
program  has  orocessec  the  first  6*4  characters.  This  ensures 
that  the  inout  data  is  not  destroyed  by  the  scrolling 
operation.  This  scrolling  lockout  is  indicated  to  the  user 
bv  a terminal  click  alert. 

2.  Terminal  key  Functions 

The  terminal  keys  fall  into  five  basic  functional 
groups:  keys  for  entry  of  normal  character  strings;  keys 

which  affect  the  interpretation  of  the  inout  kev  character; 
input  line  termination  keys#  line  editing  and  cursor  control 
keys#  and  number  pad  keys.  These  keys  and  their  functions 
are  described  in  the  following  subsections.  within  the 


function  desc r i p t i ons » "current  position"  refers  to  the 
current  cursor  position  on  the  screen.  Any  reference  to  the 
display  of  a character  in  the  current  position,  also  implies 
that  the  current  oosition  is  incremented  by  one. 

a.  Character  String  Keys 

KEY/SWITCH  FUNCTION 

0-9  Displays  the  incut  numeric 

character  at  the  current 
position  on  the  screen. 

Special  Displays  the  incut  special 

Characters  character  at  the  current  cursor 

position  on  the  screen. 

A - Z Displays  the  input  alphabetic 

characters  at  the  current 
position  on  the  screen. 

Alphabetic  characters  are 

displayed  in  upper  or  lo„er  case 
depending  on  the  key  mode  (see 
SHIFT  and  FS  C under  Entry  Hooe 
hey  s ) . 

Tab/Skio  Disolays  a (hori zonal ) tab  sym- 

bol at  the  current  position  on 
the  screen. 
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0.  Entry  Mode  Keys 


KEY/SWITCH 


FUNCTION 
SELECT  CFS) 

I/O  CONTROL 
(I/O  CTL) 


SHIFT 

FS  C 


SHIFT  RS 
(RESTART) 


FUNCTION 


Defines  the  i n t e ro re t a t i on  of 
keys  for  special  functions  as 
defined  in  this  section. 

Defines  the  interpretation  of 
keys  for  special  functions  as 
defined  in  this  section.  Also 
used  in  conjunction  with  the 
alphabetic  keys  to  generate 
appropriate  ASCII  control  codes. 

Sets  the  keyboard  to  upper  or 
lower  case. 

Sets  or  clears  the  alphabetic 
key  entry  mode  to  upper  or  lower 
case.  Functions  as  a shift  key 
lock. 

Causes  a RST  7 instruction  to  oe 
executed  which  transfers  control 
to  memory  location  AOiflh.  This 
key  is  used  with  the  CP/M  DDT 
proaram . 


S 1 


i 


c.  Line  Termination  Keys 

KEY/SWITCH  FUNCTION 


new  LINE;  enter; 
I/O  CTL  m; 

SHIFT  CP; 


Terminates  the  current  line  ana 
establishes  the  just  completed 
input  line  as  an  input  buffer 
available  for  orocessing  bv  the 
user's  program.  The  cursor  is 
displayed  at  the  left  most 
position  of  the  next  line  except 
for  ENTER  which  leaves  tne 
cursor  at  the  current  position. 


ERROR  RESET 
(N'TS  CMD) 


Specifies  that  the  input  line 
which  it  terminates  is  to  be 
processed  by  ^IS  as  a system 
command . 


d.  Line  Editing  and  Cursor  Control  Keys 


KEY /SWITCH 


FUNCTION 


NEXT  FM A r ; 

I/O  CTL  U 
(Line  Delete) 


Deletes  all  characters  from  the 
current  position  back  to  the 
start  of  the  current  line. 


BACK  SPACE 
(Char  De 1 et  » ) 


Deletes  the  previously  entered 
character. 


S $ or  I/OCTL  T Clears  the  display  buffer  (not 


(Clear  Screen) 


the  status  line)  and  leaves  tne 


current  cosition  at  the  upoer 
left  position  of  the  display 
buf  fer. 

<---  (Cursor  Left)  Moves  the  current  position  one 

to  the  left.  Does  not  delete 
previous  entry»  but  allows 
reent  ry  . 

— >(Cursor  Right)  Moves  the  current  oosition  one 

to  the  right.  Does  not  delete 
previous  entry/  out  allows 
reent  r y . 

e.  Number  Pad  Keys 

The  number  pad  keys  consist  of  10  numeric  digits 
and  8 ASCII  control  characters  located  on  tne  riant  side  of 
the  Keyboard.  The  digits  function  in  the  same  manner  as  the 
other  numeric  digits  on  the  Keyboard.  The  ASCII  control 
characters  are  displayed  when  the  SHIFT  Key  is  depressed  in 
conjunction  with  the  appropriate  key.  The  only  control 
characters  which  affect  the  aisolay  are  SHIFT  CR  and  SHIFT 
RS  (see  Line  Termination  Keys). 

3.  MfS  System  Commands 

Svstem  commancs  are  a set  of  commands  which  provide 
the  user  with  a means  of  communication  witn  MTS  from  the 
terminal.  These  commands  allow  the  user  to  login  to  MTS) 
auit  MTS;  attach  virtual  f 1 ooov  dis«s;  protect/  restrict/ 

I 

53 


and  unprotect  virtual  floopv  disks?  and  specify  the  virtual 


memory  size  to  be  used. 


a.  General  Characteristics 

A MTS  command  sequence  may  be  entered  anytime 


after 

the 

initial 

i z a t i on 

or  reinitialization 

of  MTS. 

The 

user 

enters 

the  desired  command  sequence*  followed  by 

the 

ERKOK 

RESET 

key  . 

This 

signals  the  operatinq 

system 

t hat 

there 

is  an 

MTS 

CO" mand 

to  be  processed. 

Any  errors 

detected  in 

the 

command 

sequence  will  result 

i n an 

error 

alert  messaqe  displayed  in  the  MTS  message  field  on  trie 
status  line.  Section  E describes  the  MTS  status  line 
display  and  provides  a summary  of  the  error  messaoes. 

b.  Syntax  Rules 

The  following  rules  should  be  used  to  interpret 
the  svntax  for  each  system  command  qiven  in  section  D.3.e. 

(1J  The  command  may  be  entered  in  upper  or  lower  case. 
MTS  converts  the  commands  to  upper  case  for 
processi ng. 

t «? ) Each  entry  in  the  command  sequence  must  be  separated 
by  one  or  more  spaces. 

(3)  The  entire  command  name  may  be  used  to  specify  the 
command.  However  only  the  first  letter  of  the  command 
is  required*  as  indicated  bv  the  underscore  in  the 
syntax.  MTS  validates  only  the  first  letter  of  the 
command  name . 

(4)  Parameters  are  shown  in  lower  case  and  enclosed  ov 

inequality  signs  (<  >).  Each  parameter  name  is  a 
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variable  which  must  be  replaced  by  the  appropriate 
character  string  or  decimal  number  entered  oy  the 
user . 

(b)  Parameters  may  be  required  or  optional , depending  on 
the  command.  Cptional  parameters  are  specified  by 
enclosing  the  parameter  in  brackets  ((  1).  If  a 
parameter  is  designated  as  optional,  it  may  be  omitted 

from  the  commanc  seauence  (see  section  D.3.d). 

. 

(6)  The  designation  [<gisk  nr>  l/<key>)J  indicates  that 

j 

the  entire  parameter  sequence  is  optional,  and  that 
<disk  nr>  may  a c o ear  without  /<key>.  The  converse, 
however,  is  not  true. 

(/ ) If  parameters  are  entered  in  a command  sequence  they 

[ 

must  oe  in  the  order  specified  in  the  syntax.  For 
example,  <disk  nr>  may  not  be  entered  before  <drive 
1 t r> . 

(b)  The  notation  (error  reset)  at  the  end  of  each  command 
strina  is  a reminder  to  the  user  that  each  MTS  command 
sequence  must  be  terminated  by  the  ERROR  RESET  kev. 

c.  Parameter  Definitions 

The  system  commands  have  four  types  of 

pa  r ame  t e r s : 

(1)  <drive  ltr>  - must  be  one  of  the  alphabetic  characters 
A through  H.  It  specifies  one  of  the  eiaht  virtual 
disk  drives  available  to  a terminal  user. 

(<^)  <oisk  nr>  - must  be  a decimal  number  in  the  range 
0-31.  It  specifies  one  of  up  to  3c?  virtual  floppy 


disk  files  on  the  Sycor  mini-disk 


i 


(4) 


/<key>  - a string  of  not  more  than  four  characters* 
always  precedec  by  the  special  character  '/'  which 
designates  the  string  as  a key  narameter.  All  valid 
ASCII  characters  are  acceotable  including  olan*,  slash 
(/)»  and  other  special  characters. 

<memory  size>  - must  be  a decimal  value  in  the  range  0 
to  49,  which  specifies  the  user's  swap  image  size  in 
kilooytes.  The  default  value  for  a user  swap  image  is 


16K. 

d.  Default  Parameter  Values 

Certain  system  commands  allow  the  user  to  omit 
the  <drive  I t r>  and/or  <disk  nr>  parameters.  In  these 
cases,  MTS  determines  the  appropriate  drive  letter  and  disk 
number  by  scanning  its  allocation  tables  for  the  first 
availaple  virtual  drive  or  virtual  disk,  as  appropriate.  If 
one  is  found,  it  is  allocated  to  the  requesting  user. 
Otherwise  the  appropriate  error  message  is  displayed. 

The  <key>  parameter  is  optional  only  if  the  disk 
requested  has  no  protection  attributes  specified.  Thus  there 
is  no  default  <key>  value.  As  previously  mentioned,  the 
default  <memo r y size>  parameter  is  lbK. 
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Commano  Descriptions 


e . 

The  following  pages  describe  in  detail  each  of 
the  system  commands: 

(1)  ATTACH 
(2J  LOGIN 

(3)  PROTECT 

(4)  QUIT 

(51  RESTRICT 

(6)  SIZE 

(7)  UNPROTECT 


SYSTEM  COMMAND 


ATTACH 


F unc  t i on  : 

To  attach  a virtual  floopy  disk  to  a virtual  disk  drive 
for  use  bv  a user  at  a specific  terminal. 


Synt  ax  : 

ATTACH  [<drive  1 t r > 1 fkdisk  nr>  l/<key>lJ  (error  reset) 


Description: 

This  system  command  simulates  the  physical  operation  of 
loading  virtual  aisk  <oisk  nr>  into  virtual  orive  <drive 
ltr>.  All  parameters  are  optional^  section  D.3.d 
descrioes  the  oefault  values  when  optional  parameters 
are  omitted. 


Error  Messages: 


DRIVE  NOT  AVAIL  - Drive  letter  has  not  been 

specified  ana  there  is  no  arive 
presently  available  for  assignment. 

DISK  NR  ERROR  - Disk  number  entered  is  greater 

than  31. 

DISK  IN  USE  - Disk  number  soecifiea  is  presently 

allocated  with  read/write  access  to 
another  user. 

DRIVE  L T R ERROR  - Drive  letter  entered  is  not  one  of  the 

letters  A th  rouqh  h . 

DISK  NOT  AVAIL  - Either  disk  number  has  not  been 

specified  ana  there  is  no  aisk 
presently  available  for  assignment;  or 
the  specified  aisk  is  not 
available  for  assignment. 

INVALID  CmD  - Syntax  error  in  commana  sequence. 

KEY  ERROR  - The  specified  disk  reauires  a key 

and  either  a key  has  not  been  enterea 
or  the  entered  key  did  not  match. 


E x amp  1 es : 

ATTACH 

A 

3 /USK1 

A 

C 

attach 

S 

/ vrt#  1 

a 1 

■■ — | — — - ■ ■ | — ■ - hh  - |gH| 1 - | | r W/M 


SYSTEM  COMMANO  LUG  I N ;| 

Func  t i on : 

Links  the  terminal  user  to  MTS  and  provides  the  initial 
load  of  the  user's  program  or  operating  system  (default 
system  is  CP/M ) » 

Syntax: 

LOGIN  [<disk  nr>  (/<key>l 1 (error  reset) 


Description: 

This  system  command  notifies  MTS  that  the  requesting 
terminal  is  now  act ive»  and  simulates  the  physical 
cold-start  bootstrap  operation  of  the  user's  system. 
The  Bootstrap  load  always  taxes  place  from  virtual  drive 
A.  The  virtual  disk  (and  associated  key#  if  any) 
attached  to  this  drive  may  be  specified  as  a parameter. 
The  default  is  disk  nr  0,  which  is  a read  only  disk  and 
always  contains  the  CP/W  operating  system. 


Error  Messaaes: 

DISK  NR  ERROR 
DISK  IN  USE 

DISK  not  avail 
HARDWARE  ERROR 

INVALID  CMD 
KtY  ERROR 


Disk  numoer  entered  is  qreater 
than  51. 

Disk  number  specified  is  presently 
allocated  with  read/write  access  to 
another  user. 

The  specified  disk  is  not  available 
for  ass i gnment . 

Abnormal  completion  status  was 
returned  by  the  mini-disk  controller 
following  a write  operation. 

Syntax  error  in  command  sequence. 

The  specified  disk  requires  a key 
and  either  a key  has  not  been  entered 
of  the  entered  key  did  not  match. 


E x amp  1 es  : 

LOGIN  3 /D1 
L IS 

login  25  /o25 
I 
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SYSTEM  COMMAND 


PROTECT 


Func  t i on : 

Adds  the  read/write  protection  attribute  to  the 
soec i f i ed  virtual  disk. 


Synt  ax  : 

PROTECT  <disx  nr>  /<xey>  (error  reset) 


Description: 

This  system  comi'ana  provides  the  user  with  the  means  for 
on-line  assignment  of  a protection  <key>  to  <disx  nr>. 


Error  Messages: 

DISK  NR  ERROR  - Disk  number  entered  is  areater 

than  31. 


HARDWARE  ERROR  - Abnormal  comoletion  status  was 

returned  by  the  mini-disk  controller 
following  a read  or  write  operation. 

INVALID  CMD  - Syntax  error  in  commano  sequence. 


k£T  ERROR  - The  specified  disk  is  already 

protected.  To  change  protection  keys 
use  UNPRGTECT  with  current  key  and 
then  PROTECT  with  new  key. 


Examp  1 es : 

PROTECT  1 / VFD5 
protect  10  /keyl 
o 2 /u»20 


h0 


QUIT  (error  reset) 

Description: 

This  system  command  notifies  MTS  that  the  requesting 
terminal  is  no  longer  active. 

I 


Error  Messaaes: 

HARDWARE  ERRUR  - Abnormal  completion  status  was 

returned  by  the  mini-disk  controller 
following  a write  operation.  This  may 
indicate  that  the  last  virtual  disx 
written  to  was  not  closed  prooerly  and 
data  has  been  lost. 


INVALID  LMD  - Svntax  error  in  command  sequence. 


Ex  amp  1 es  : 

QUIT 
qu  i t 
Q 
q 
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SYSIEM  COMMAND 


RESTRICT 


Func  t i on : 

Adds  the  read  restriction  attriOute  to  the  specified 
virtual  disk. 


Syntax: 

RESTRICT  <disk  nr>  /<kev>  (error  reset) 


Description: 

This  system  command  provides  the  user  with  the  means  for 
on-line  assignment  of  a "read  only"  restriction  to  <aisk 
nr>.  This  allows  the  user  to  specify  a virtual  floppy 
disk  as  available  to  other  users  for  read  only  access. 
The  virtual  floppy  disk  must  have  oeen  protected  prior 
to  issuing  the  restrict  command.  The  <key>  is  the  same 
as  the  <key>  used  in  the  protect  command. 


Error  Messages: 

DISK  NR  ERROR  - Disk  number  entered  is  areated 

than  31. 


DISK  IN  USE  - Disk  number  specified  is  presently 

allocated  with  read/write  access  to 
anot her  user. 


Syntax: 

SIZE  <memory  size>  (error  reset) 


Oesc  r i pt i on  : 

This  system  command  sets  the  size  of  the  user's  swao 
i maqe . The  range  of  values  is  0-48K.  The  default  value 
after  login  is  I oK . 

Error  Messages: 

INVALID  CMD  - Syntax  error  in  command  sequence  or 

the  size  parameter  entered  dees 
not  fall  in  the  ranoe  of  0-4o; 
or  the  Sycor  440  swap  file  is  not 
large  enough  to  hold  this  size 
swap  image  (see  section  C.3). 


E x amp  I es : 

SIZE  24 
S 32 

size  48 
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SYSTEM  COMMAND 


UNPROTECT 


Func t i on : 

To  remove  a previously  entered  protection  key  from  the 
soecifiea  virtual  floppy  disk. 


Synt  ax  : 

UNPRQTECT  <disk  nr>  /<key>  (error  reset) 


Description: 

This  system  command  provides  the  user  with  the  means  for 
on-line  removal  of  all  protection  attrioutes  form  <disk 
n r > . 


Error  Messaqes: 

DISK  NR  ERROR 

HARDWARE  ERROR 

INVALID  CMD 
KEY  ERROR 


Disk  number  entered  is  greater 
than  31 . 

Abnormal  completion  status  was 
returned  by  the  mini-disk  controller 
following  a read  or  write  operation. 

Syntax  error  in  command  seauence. 

A protection  key  is  required  and 
either  no  key  was  entereoi  or 
the  entered  key  did  not  match. 


Examp  1 es : 

UNPROTECT  IB  /NR  9 
U 12  /0Rb4 

unprotect  7 /Ovfo 
u 9 /0?« 
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t.  MTS  STATUS  LINE  MESSAGES 


The  MTS  operating  system  utilizes  the  first  line  of  each 
terminal  for  system  status  and  error  message  displays.  The 
status  line  is  64  characters  in  length  and  is  divided  into 
three  display  areas  as  shown  below. 


STATUS  LINE 


0 


39  90  47  48  63 


V F C ! MS  1 MSG! 


where 

VFD  - Virtual  Floopv  Disk  Status  Display 
MS  - Memory  Size  Display 
MSG  - Error  Messaqe  Display 

1.  Virtual  Floppy  Disk  Status  Display 

This  display  contains  information  on  the  virtual 
drive  and  disk  assignments  currently  in  effect.  For  each 
attached  virtual  floppy  disk  the  following  will  be 
i so  1 ayed : 

( 1 ) drive  letter 

( 2 ) disk  numoe r 

(3)  restriction  indicator  (r  or  blank) 

For  example*  if  the  user  has  attached  disk  numoer  3 to  drive 
A and  disk  numoer  25  (which  is  restrictea)  to  drive  C*  the 
status  display  would  appear  as  follows: 


65 


0 


39 


10 

i Ar 0 3 C = 25r 


2.  Memory  Size  Display 

The  center  of  the  status  line  display  shows  the 
current  memory  size  for  that  user  ana  the  "MTS"  header.  For 
example#  if  the  system  default  memory  size  were  oeing  used# 
the  display  would  appear  as  follows: 

ao  47 

lbK  MTS 


3.  trror  Message  Disolay 

All  MTS  syste™  commands  are  validatea  ana  an  error 
alert  generated  if  any  syntax  errors  are  found.  The  last  16 
positions  of  the  status  line  are  reserved  for  these 
messages.  A valid  system  command  will  clear  the  error 
message  disolay  of  any  orevious  error  alert.  The  followina 
is  a summary  of  system  error  messages. 

MESSAGE  ME AN  IMG 


(Blank  Display)  Initial  condition?  also  the  status  message 

area  is  clearea  following  the  processing 
of  a valid  system  command. 

DISK  IN  USE  Disk  numoer  soecified  is  presently  a I 1 o " 

catea  with  read/write  access  to  another 


user 


DISK  NUT  AVAIL 


Either  the  disk  number  has  not  been  speci- 


fied and  there  is  no  disk  presently 
available  for  assignment;  or  specified 
disk  number  is  not  available  for 
a s s i gnmen t . 

DISK  NR  ERROR  Disk  numoer  entered  is  greater  tnan  31. 

DRIVE  LTR  ERROR  Drive  number  entered  is  not  one  of  trie 

letters  A throuah  H. 

DRIVE  NOT  AVAIL  Drive  letter  has  not  been  specified  and 

there  is  no  drive  presently  available  for 
ass i gnment  . 

hARUrtARE  tRRQR  Abnormal  completion  status  was  returned  by 

the  mini-disk  controller  following  a read 
or  write  ope r a t i on  . 

INVALID  CRD  Syntax  error  has  been  detected  in  the 

command  seauence. 


KEl  ERROR  The  specified  disk  requires  a key  and 

either  a key  has  not  been  entered  or  tne 
entered  key  did  not  match. 


PRINTER  NOT  RDY  Abnormal  completion  status  was  returnee  by 

the  printer  controller  f o I 1 ow i no  a print 
operation.  This  error  may  be  caused  by 
printer  power  of f » printer  not  selected  or 
printer  out  of  caper. 
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TASK  DELETED  when  RECOVERY  is  specified  during  system 

initialization,  this  message  is  displayed 
at  the  terminal  which  was  executing  when 
the  system  failure  occurreo.  It  indicates 
that  this  terminal  user  must  reestablish 
the  env i ronment . 
i 


F.  MTS/USER  PROGRAM  INTERFACE 

l.  Program  Interface  Design 

MIS  was  designed  to  provide  a timeshared#  virtual 
8080  m i c r oo rocesso r environment  for  microcomputer  systems 
development.  The  term  virtual  is  appropriate  here  because 
the  user  actually  interfaces  with  MJS  for  many  services 
normally  provided  by  hardware  in  a dedicated 

environment.  A software  interface  between  user  programs  and 
the  Svcor  440  hardware  is  necessary  in  order  to  allocate  the 
hardware  resources  equitably  and  efficiently#  while  at  tne 
same  time  satisfying  the  service  requirements  of  several 
competing  user  programs. 

The  MTS/user  program  interface  consists  of  a set  of 
service  routines  which  may  be  calleo  by  a user  program 
through  a single  entrv  point  to  perform  terminal  I/O#  access 
virtual  floppy  disks#  or  modify  the  user's  virtual 

environment.  The  design  was  heavily  influenced  by  the  CP/M 
operating  system  wnich  uses  a similar  scheme  for  I/O. 

The  set  of  service  routines  may  be  logically  divided 
into  two  types  of  calls  on  MTS.  The  first  type#  system 
calls#  perform  the  same  functions  for  a user  program  as 

system  commands  provide  for  the  user  at  a terminal  CD. 3). 

The  functions  deal  with  modifying  the  user's  current  virtual 
environment  by  chancing  memory  size#  attaching  various 
virtual  disks  to  virtual  drives#  or  even  logging  on  anq  off 
the  system.  Service  calls  are  the  second  type  of  call 
provided  by  the  MTS  software  interface. 
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Service  calls  are 


used  to  perform  terminal  I/O  and  access  virtal  flopDy  disks. 

A call  to  MTS  takes  the  form 

<va1ue>  = MTS ( < f i d> # <ca rm> ) 

The  first  argument#  <fid>,  is  a number  from  0 to  17  which 
identifies  the  function  reauested.  The  <parm>  argument  may 
oe  a parameter  value#  if  only  a single  parameter  is 
required#  or  the  address  of  a parameter  list  if  more  than 
one  parameter  is  required.  In  each  case  MTS  returns  <value> 
uoon  completion  of  the  reauested  operation.  This  returned 
value  may  oe  an  ASCII  character  code#  an  error  code#  or  in 
several  cases  have  no  significance.  Both  system  calls  and 
service  calls  are  formed  as  describee  above.  The  syntax  and 
function  of  each  call  are  described  in  sections  £ ana  3. 
Section  4 details  the  calling  procedures  which  include  the 
register  assignments  for  <fia>,  <oarm>  and  return  values. 
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2.  System  Calls 

All  system  commands  available  to  a user  at  a 
terminal  are  also  availaole  to  a user  program  through  system 
calls.  An  additional  call  is  provided  which  will  oispiay  an 
appropriate  terminal  alert  at  the  user's  terminal  if  entered 
with  an  error  code.  Table  1 summarizes  the  required 
arguments  and  return  values  of  each  system  call. 


TABLE  1 

SYSTEM  CALL  SUMMARY 

FID  NAME  PAPM  VALUE 


0 

ATTACH 

list 

error 

code 

1 

DISPLAf  MSG 

error  code 

none 

2 

LOGIN 

list 

error 

code 

1 

PROTECT 

list 

error 

code 

ti 

QUIT 

none 

none 

5 

RESTRICT 

list 

error 

code 

6 

SIZE 

size 

error 

code 

7 

UNPROTECT 

list 

error 

code 

a.  Arguments 

Each  system  call  is  identified  by  a number  which 
MTS  associates  with  a particular  service  routine.  In 
adoition  to  this  function  identifier,  MTS  may  require  one  or 
several  additional  parameters  to  perform  the  requested 
service.  rthen  more  than  one  parameter  is  required,  MTS  must 
be  passed  the  address  of  a byte  vector  containina  these 
parameters.  Each  system  call  requires  that  this  vector 
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conform  to  some  fixed  format.  In  general  each  byte  of  the 
vector  will  contain  some  numeric  value  or  an  ASCII  character 
code t but  situations  may  arise  when  an  optional  parameter  is 
not  specified.  In  such  cases  the  corresponding  byte  in  the 
parameter  vector  must  be  filled  with  the  value  FFH.  Section 
4 details  the  calling  orocedure  which  includes  the  register 
assignments  for  the  arguments. 

0.  System  Call  Descriptions 

The  following  Daaes  descrioe  in  detail  each 

system  call. 


SYSTEM  CALL 


ATTACH 


Func  t i on  : 

To  attach  a virtual  floppy  disk  to  a virtual  disk  drive 
for  use  oy  a user  at  a specific  terminal  , 


Argument  s : 

FID  = 0 

PARM  = address  of  parameter  vector 

byte  0:  orive  number  where  A = 0,  B=l»  etc. 

Oyte  1:  disk  numoer  - 0 to  31 

oytes  <2-5:  protection  key  • I)  to  ASCII  characters 


Oesc  r i pt i on : 

This  call  simulates  the  physical  operation  of  loading 
virtual  disk  <disk  nr>  into  virtual  drive  < drive  nr>. 
All  parameters  are  optional.  If  dis«  and/or  drive  nr  is 
not  specified  MTS  searches  the  disk  or  drive  mao  table 
respectively  for  the  first  available  entry.  A 
protection  key  is  only  reauired  if  the  virtual  disk  to 
oe  attached  has  been  assiqned  reao/write  protection. 
The  call  returns  an  error  code  upon  completion. 


Error  Cooes: 

0 - Operation  successful 

2 - tither  disk  number  has  not  been  specified  and  tnere 
is  no  diSK  presently  available  for  assignment;  or 
the  specified  disk  is  not  available  for  assianment. 

1 - Disk  number  specified  is  presently  allocated  with 

read/write  access  to  another  user. 

4 - Dis*  number  specified  is  greater  than  31. 

5 - Ihe  specified  disk  requires  a key  and  eitner  a key 

has  not  been  entered  or  the  entered  kev  did  not 
match. 

b - Drive  number  specified  is  areater  than  7. 

10  - Drive  numosr  has  not  oeen  specified  and  there  is  no 
drive  presently  available  for  assignment. 


SYSTEM  CALL  DISPLAY  MSG 


Func  t i on : 

To  display  a terminal  alert  in  the  status  message  area 
of  the  user's  terminal. 

Argument  s : 

FID  = 1 

PARM  = error  code 


Descript  ion: 

This  call  takes  an  error  code  as  input  and  displays  the 
corresponding  oredefined  terminal  alert  message  on  the 
user's  terminal.  The  DISPLAY  MSG  system  call  provides 
the  only  way  for  a user  to  display  messages  on  the 
terminal  status  line.  No  value  is  returned  ov  this 
system  call. 


Action: 

0 - blank 

1 - INVALID  CMD 

2 - DISK  NOT  AVAIL 

3 - DISK  IN  USE 

U - DISK  NR  ERROR 

5 - KEY  ERROR 

6 - DRIVE  LTR  ERROR 

7 - PRINTER  NOT  ROY 

8 - HARDWARE  ERROR 

9 - TASK  DELETED 


10  - DRIVE  NOT  AVAIL 


SYSTEM  CALL 


LOGIN 


Func  t i on : 


He  initial i zes 
user's  system 


the  user's 
1 rom  drive 


MTS 

A. 


environment  and  reboots  the 


Argument  s : 

FID  = 2 

FARM  = address  of  parameter  vector 
pyte  0:  disk  numoer  - 0 to  31 

bytes  1 -4 : protection  key  • 0 to  4 ASCII  characters 

Description: 

This  system  call  creates  a reinitialized  MTS  environment 
for  the  user  program.  Memory  size  remains  at  tne 
current  value  ana  the  soecified  disk,  if  any,  will  be 
attached  to  drive  A.  If  no  distc  number  is  soecified, 
disk  number  0 containing  the  CP/M  system  is  attached. 
Drive  assignment  and  memory  size  will  be  displayed  on 
the  status  line  of  the  user's  terminal.  The  user  system 
is  then  reoootec  from  drive  A.  All  other  drives  and 
disks  are  reset  . 


Error  Codes: 

0 - Operation  successful 

2 - The  specified  disk  is  not  available  for  assignment. 

3 - Disk  number  soecified  is  currently  allocated  with 

read/write  access  to  another  user. 

a - Disk  number  specified  is  greater  than  31. 

5 - The  specifiea  disk  requires  a key  and  either  a key 
has  not  been  entered  or  the  entered  key  did  not 
match  . 

8 - Abnormal  completion  status  was  returned  by  the 
mini-disk  controller  following  a write  operation. 
This  may  indicate  that  the  last  virtual  disk 
written  to  was  not  closed  oroperly  ana  data  has 
been  lost. 
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SYSTEM  CALL 


PROTECT 


F unc  t i on  : 

Read/write  orotect  a virtual  disk. 


Argument  s : 

FID  = 3 

P ARM  = address  of  parameter  vector 
byte  0:  disk  number  - 0 to  31 

bytes  1-4:  orotect ion  key  - 1 to  4 ASCII  characters 


Description: 

This  system  call  adds  the  read/write  protection 
attribute  to  the  soecified  virtual  disk.  This  is 
accomplished  by  the  uodate  of  the  basic  configuration 
file  .MTSCNFG  IC.4J.  Uoon  normal  comoletion  of  the  call 
disk  use  is  limited  only  to  those  who  know  the 
protection  key . 


Error  Codes: 

0 - Operation  successful 

4 - Disk  number  soecified  is  greater  than  31. 

5 - Key  has  not  oeen  entered  or  disk  is  already 

protected  with  another  key. 

8 - Abnormal  comoletion  status  was  returned  by  the 
mini-disk  controller  following  a read  or  write 
operation.  This  may  indicate  that  the  last  virtual 
disk  written  to  was  not  closed  properly  and  data 
has  been  lost. 
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SYSTEM  CALL 


Func t i on : 


QUIT 


Logs  the  user  off  MTS. 


Argument  s : 
FID  = a 


PARM  = none  required 


Desc  r i pt ion: 


This  system  call  notifies  MTS  that  the  requesting  user 
program  is  no  lunger  active.  Control  will  not  De 
returned  to  the  user  program.  The  user  must  log  in 
through  the  terminal  to  regain  system  facilities. 


Error  Codes: 


- Operation  successful. 

- Abnormal  completion  status  was  returnee  by  the 
mini-disk  controller  following  a write  operation. 
This  may  indicate  that  the  last  virtual  disk 
written  to  was  not  closed  properly  ana  data  has 
been  lost.  If  this  error  code  is  returned/  the 
terminal  alert  HARD rt ARE  ERROR  is  automatically 
displayed  in  the  status  message  area  of  the  user's 
terminal  . 
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SYSTEM  CALL 


RESTRICT 


1 


Func t i on : 

Assignment  of  "read  only"  restriction  to  a virtual  disn. 


A rgumen  t s : 

Fit)  = 5 

P ARM  = aodress  of  parameter  vector 
Oyte  0:  disk  numoer  - 0 to  31 

oytes  1-4:  orctect ion  key  - 1 to  4 ASCII  characters 

Description: 

This  system  call  adds  the  read  restriction  attribute  to 
a virtual  disk  which  has  been  previously  protected.  The 
protection  key  is  the  same  as  that  used  for  the  protect 
system  call.  MTS  adds  the  read  restriction  attribute  to 
the  oasic  configuration  file  . MTSCNF6. 


Error  Cooes: 

0 - Operation  successful 

3 - Disk  number  specified  currently  allocated  with 

reaa/write  access  to  another  user. 

4 - Disk  number  specified  is  greater  than  31. 

5 - The  specified  disk  requires  a kev  and  either  a kev 

has  not  been  entered  or  the  entered  kev  did  not 
match. 

8 - Abnormal  completion  status  was  returned  by  tne 
mini-disk  controller  following  a read  or  write 
operation.  This  may  indicate  that  the  last  virtual 
disk  written  to  was  not  closed  properly  ana  data 
has  been  lost. 


SYSTEM  CALL 


Func  t i on : 

Set  the  amount  of  memory  available  to  the  user. 


Argument  s : 
FID  = 6 


PARM  s memory  size  in  kilobytes 


I 

Desc  ration: 


This  system  call  adjusts  the  size  of  tne  user's  swaD 
image  to  the  specified  value.  The  value  must  fall  in 
the  range  0 to  98,  and  also  must  not  be  greater  than  tne 
size  of  the  swap  file  associated  with  the  user's 
terminal . 


Error  Codes: 

0 - Ooeration  successful. 

1 - Either  specified  size  exceeds  48*,  or  a value  less 

than  96K  exceeds  the  size  of  the  availaDle  swap 

file. 


79 


SYSIEM  CALL 


Func  t i on : 

tiemove  a previously  specified  protection  key  from  a 
virtual  disk. 


1 


UNPtfOTECT 


Argument  s : 

FID  = 7 

PAPM  = address  of  parameter  vector 
Oyte  0:  disk  number  - 0 to  31 

bytes  1-4:  protection  key  - l to  4 ASCII  characters 


Description: 

This  system  call  removes  all  orotection  attributes  from 
the  specified  virtual  disk.  This  is  accomplished  by 
mooification  of  the  configuration  file  .MTSCNFO . 

Error  Codes: 

0 - Operation  successful 

4 - Disk  number  specified  is  greater  than  31. 

5 - A orotection  key  is  reauired  ana  either  a key  has 
not  been  entered  or  the  entered  key  did  not  match. 

8 - Abnormal  completion  status  was  returned  by  the 
mini-disk  controller  following  a read  or  write 
operation.  This  may  inaicate  that  the  last  virtual 
disk  written  to  was  not  closed  oroperly  ana  aata 
has  been  lost. 
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3.  Service  Calls 


The  MTS  environment  currently  provides  a virtual  CRT 
terminal  as  the  primary  I/O  device  and  virtual  floppy  disk 
drives  for  auxiliary  storaqe.  Access  to  both  of  these 
virtual  devices  is  through  MTS  service  calls.  A summary  of 
the  service  calls  showing  parameters  and  returned  values  is 
given  in  Table  2 . 


TABLE  2 


SERVICE  CALL  SUMMARY 


FID 

NAME 

PARM 

VALUE 

8 

terminal  status 

none 

true/false 

9 

READ  TERMINAL 

none 

charac ter 

10 

WRITE  TERMINAL 

character 

none 

1 1 

WRITE  PRINTER 

character 

error 

code 

12 

SELECT  DRIVE 

drive  nr 

error 

code 

13 

SET  DMA 

dma  address 

error 

code 

l« 

SET  TRACK 

track  nr 

error 

code 

15 

SET  SECTOR 

sector  nr 

error 

code 

16 

READ  FLOPPY 

none 

error 

code 

1 7 

WRITE  FLOPPY 

none 

error 

code 

a.  Virtual  Terminals 

The  MTS  virtual  terminal  simulates  tne  operation 
of  a serial  half-duplex  console  device.  Single  ASCII 
characters  may  be  passed  from  the  terminal  keyboard  t o a 
user  procram,  or  from  a user  program  to  the  terminal  for 


PI 


display.  A service  call  to  MTS  is  required  to  oass  each 


character.  MTS  also  orovides  a terminal  status  service  call 
whicn  allows  a user  program  to  test  the  status  of  a 
terminal . 

The  user  should  keep  in  mind  that  characters  are 
actually  ceing  passed  between  his  program  and  the  terminal 
display  buffer  (D.l.b).  This  means  that  input  need  not  oe 
echoed  by  the  user's  program  since  it  already  appears  on  the 
display.  Simple  line  editing  is  also  provided  by  MTS  on  the 
input  data  prior  to  making  that  data  available  for 
processing  by  the  user's  program. 

The  user  can  directly  contrioute  to  improved 
system  response  oy  orcoer  use  of  tne  terminal  service  calls. 
It  is  common  practice  when  writino  conversational  proaraus 
to  implement  a "get  character"  routine  to  hanole  input  from 
the  terminal.  Normally  this  routine  does  little  more  than 
repeatedly  test  the  terminal  status  until  it  finas  input 
waiting.  In  the  MTS  environment  a more  efficient  method  of 
accomplishing  the  same  goal  is  to  immediately  read  from  the 
terminal  without  testing  for  status.  If  input  is  waiting, 


the 

first 

character 

will 

be 

oasseo  immediately. 

More 

i mpo  rtant 1 y, 

if  there 

is  no 

input  waiting,  MTS  will 

block 

the 

user's 

o rogr am 

until 

a 

character  is  entered 

at  tne 

keyboard.  The  b 1 oc  k ea  program  may  be  swapped  out  and  the 
CPU  allocated  to  another  user.  This  method  of  implementing 
con v e r sa t i on  a 1 proqrams  takes  advantage  of  unproductive 
waiting  time  in  one  user  proaram  to  service  additional 
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users 
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b.  Virtual  Floppy  Disk  Drives 

The  MTS  virtual  floppy  disk  drive  provides 
auxiliary  storaqe  for  user  programs  on  virtual  floppy  disks. 
These  hard-sectored  disks  have  128  bytes  per  sector*  26 
sectors  per  track,  ana  a maximum  number  of  tracks  determined 
by  the  size  of  the  file  containing  the  disk  image  (C.6). 
Each  user  has  eight  drives  available  for  dedicated  use. 

Drive  A is  activated  when  the  user  logs  in  and 
serves  as  the  user  system  load  device.  In  a process  which 
simulates  a cold-start  bootstrap  load  the  first  four  sectors 
on  track  0 are  read  into  the  user's  memory  space  at  location 
4000H.  MTS  assumes  that  these  sectors  contain  executable 
code  which  will  load  the  remainder  of  the  user's  system. 
Unless  another  disk  is  specified  in  the  LOGIN  command 
strina,  a read-only  disk  containing  the  CP/M  operating 
system  will  be  attached  when  drive  A is  activated. 

The  user  may  activate  any  or  all  of  the 
remaining  virtual  drives  Dy  attaching  a virtual  disk.  This 
is  accomplished  from  the  terminal  by  entering  the  ATTACH 
system  command  or  directly  from  the  user's  program  by  a call 
to  mts.  Although  no  cirect  method  for  detaching  a virtual 
disk  is  provided  by  MTS,  the  same  effect  is  produced 
indirectly  by  overriding  the  Current  drive  assignment  with  a 
second  ATTACH  command.  »vhen  the  second  floppy  disk  is 
attached  MTS  closes  the  previously  attached  disk  and 
releases  it  for  use  elsewhere. 

Data  transfer  between  a virtual  disk  and  a user 
program  utilizes  a 128  byte  ouf ‘er  in  the  user's  program 
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SDace  called  a OMA  buffer.  The  name  is  derived  from  the 
nature  of  the  transfer  ooeration:  to  the  user  program  it 
appears  that  data  transfer  is  bv  direct  memory  access. 

Before  the  user  program  can  access  a particular 
virtual  disk  sector  the  user  must  specify  a complete  sector 
address  and  a DMA  buffer.  A complete  sector  address  consists 
of  driver  track/  and  sector  numbers.  Note  that  MTS  will  not 
allow  a virtual  drive  to  be  selected  until  a disk  has  been 
attached.  4 DMA  buffer  is  defined  by  its  base  address.  MTS 
provides  a service  call  to  enter  each  of  these  four  values. 
Once  a value  has  been  entered  it  will  be  used  for  all 
suosequent  virtual  disk  accesses  until  redefined  by  a second 
service  call. 

c.  Dedicated  Printer 

The  MTS  dedicated  printer  provides  the  user  with 
the  ability  to  obtain  nard-copy  output.  Single  ASCII 
characters  may  be  passed  from  the  user  program  to  the 
printer  for  display.  A service  call  to  MTS  is  reauireo  to 
pass  each  character. 

The  printer  is  a dedicated  device.  This  means 
that  once  a task  is  allocated  the  printer/  no  other  tasks 
may  use  the  printer.  A task  is  allocated  the  printer  merely 
oy  the  successful  comoletion  of  a call  to  the  write  printer 
service  routine.  The  write  printer  service  routine  buffers 
the  characters  in  memory  and  eventually  writes  the 
characters  to  the  .VTSPRT  disk  file.  Note  fhat  the  rrinter 


does  not  actually  print  the  characters  until  the  end  of  file 


character  is  received.  When  the  user  task  issues  the  end  of 
file  character  (control  Z)>  the  printer  prints  the 
information  contained  in  . MTSPR  T . A repeat  character 
(control  R)  causes  the  information  in  .MTSPRT  to  be  output 
to  the  printer.  After  the  control  R or  Control  Z has  been 
issued  the  printer  is  not  available  to  any  task  until  after 
all  information  in  .MTSPRT  has  been  printed. 

d.  Arguments 

Service  calls  have  the  same  form  as  other  calls 
to  MTS.  A numerical  function  identifier  is  associated  with 
each  call  to  identify  the  service  desired.  The  second 
argument  is  a single  parameter  in  most  cases,  although 
several  of  the  service  calls  require  no  second  araument. 
Section  R details  the  calling  procedures  which  include  the 
register  assignments  for  the  arguments. 

e.  Service  Call  Descriptions 

The  following  oaoes  descrioe  in  detail  each 
individual  service  call. 


SERVICE  CALL 


TERMINAL  STATUS 


ii 


i 


Func  t i on : 

Interrogate  the  status  of  the  user's  terminal. 


A rgumen  t s : 

FID  = 8 

PARM  = none  required 


Description: 

This  service  call  returns  a logical  value  answering  the 
question  "Is  terminal  input  waiting?"  TERMINAL  STATUS 
should  not  be  usea  in  those  situations  where  no  further 
processing  can  be  accomplished  until  terminal  input  is 
available.  In  such  a case  it  is  more  efficient  to  use 
the  READ  TERMINAL  service  call  to  allow  processing  of 
other  user  tasks  while  waiting. 


Value: 

0 Oh  - all  terminal  input  processed 
FFh  - terminal  input  waiting 
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SERVICE  CALL 


READ  TERMINAL 


Func  t i on : 

Read  the  next  available  character  from  the  user's 
terminal . 


Argument  s t 
FID  = 9 

P ARM  = none  required 


Description: 

This  service  call  passes  the  next  availaole  ASCII 
character  from  the  user's  terminal  display  buffer  to  the 
user  program.  Ihe  maximum  size  input  line  is  512 
characters.  Each  input  line  is  terminated  by  a carriage 
return.  It  is  not  necessary  for  user  programs  to  echo 
input  characters  since  they  are  already  aisolayea  on  the 
user's  terminal  before  becoming  available  to  the  user 
program.  Line  editing  functions  are  orovideo  by  MTS. 


Value: 

A sinqle  ASCII  character  - the  end  of  each  input  line  is 
indicated  by  the  return  of  a carriage  return  (ASCII  = 
ODH ) . 


SERVICE  CALL  WRITE  TERMINAL 


F unc t i on : 

To  write  a character  to  the  user's  terminal. 


Argument  s : 

FID  = 10 

PAftf*  = a single  ASCII  character 


Description: 

This  service  call  passes  the  specified  character  from 
the  user  orogram  to  the  terminal  display  buffer  for 
display.  Carriage  return  (ASCII  = ODh)  returns  the 
cursor  to  first  position  of  the  current  line.  Lme  Feed 
(ASCII  = OAH)  moves  the  Cursor  down  one  line.  Each 
output  line  will  normally  be  terminated  ov  the  CR-LF 
comb i nat i on  . 


r 

Value: 

None  returned. 
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SERVICE  CALL 


NRITE  PRINTER 


Func  t i on : 

To  write  a character  to  the  printer. 


A rgumen t s : 

FID  = 11 

PARM  s a single  ASCII  character 


Descript  ion: 

This  service  call  passes  the  specified  character  from 
the  user  orogram  to  the  printer  buffer.  The  printer 
does  not  orint  any  characters  until  the  end  of  file 
character  (control  Z)  is  received.  If  an  end  of  file 
character  had  been  previously  received*  the  repeat 
character  (control  R)  nay  be  issued  resulting  in  the 
printing  of  information  uo  to  the  last  end  of  file. 


Error  Codes: 

0 - Operation  successful 

7 - Printer  is  not  ready.  Printer  may  be  turned  off* 

not  selected  or  out  of  paper. 

8 - Abnormal  completion  status  was  returned  by  the 

mini-disk  controller  following  a write  operation. 

11  - Printer  is  in  use.  This  code  indicates  that 

another  task  currently  has  control  of  the  printer 
or  the  printer  is  currently  orinting  a file. 

12  - The  end  of  the  printer  tile  .^TSPRT  has  been 

exceeded.  The  user  must  recreate  the  .MTSPRT  file 
with  a larqer  file  size  in  order  to  alleviate  this 
error  (C .51  . 
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SELECT  DRIvE 


F unc  t i on : 

Selects  the  virtual  floppy  disk  drive  to  be  used  in 
subsequent  floppy  disk  accesses. 


Argument s : 

FID  = 12  j 

PARM  = drive  number  where  A = 0f  6=1/  etc. 

Description: 

This  service  call  selects  one  of  the  eight  virtual 
floppy  disk  drives  available  to  eacn  user  program 
for  use  in  subsequent  floppy  disk  accesses.  Before 
a drive  can  be  selected/  a virtual  disk  must  oe 
attached. 


Error  Codes: 

0 - Uperation  Successful. 

6 - Drive  number  specified  is  qreater  than  7.  Selected 
drive  is  c hanged . 

8 - Abnormal  completion  status  was  returned  by  the 
mini-disk  controller  following  a read  or  write 
operat i on . 

10  - Drive  specified  is  not  in  use.  Indicates  that  no 
virtual  disk  has  been  attached  to  the  specified 
drive.  Selected  drive  is  unchanged. 


I 


SERVICE  CALL 


SERVICE  CALL 


SET  DMA 


Func  t i on : 

Sets  the  base  address  of  the  128  byte  DMA  buffer  to  oe 
used  in  subsequent  floppy  disk  accesses. 


Argument  s : 

FID  =13 

PARM  = base  address  of  DMA  buffer 


Description: 

The  DMA  Duffer  reaui red  to  access  a virtual  floopv  disk 
must  be  a contiguous  block  of  126  bytes  lodated  in  the 
user's  memory  soace>  i.e.  with  base  address  greater 
than  4000m.  Specifying  a DMA  address  areater  than  or 
eaual  to  FF00H  will  have  unoreaictable  resul ts»  Out  can 
normally  be  expected  to  cause  a system  crash  and 
suoseauent  deletion  of  the  user's  task  upon  recovery. 


Error  Codes: 

0 - Operation  successful. 

12  - Address  specified  is  less  than  the  base  of  user's 
memory  space.  Current  DMA  address  remains 
unchanged . 


SERVICE  CALL 


SET  TRACK 


F uric  t i on  : 


Sets  the 
suosequent 


floppy  disk  track  number  to 
virtual  floppy  disk  accesses. 


used 


A rgument  s : 


FID  = 14 


PARfrf  = track  numoer  - 0 to  7b 


Description: 

This  service  call  sets  the  track  numoer  to  be  used  in 
suoseauent  floopy  disn  accesses.  Values  may  range  from 
0 to  76.  The  value  cannot  oe  validated  until  it  is 
associated  with  a virtual  floppy  disk  number;  therefore/ 
no  validation  is  performed  until  a reaa  or  write 
operation  is  requested. 


Error  Codes: 


0 - Operation  successful 

12  - Track  number  specified  is  greater  than  76, 
value  of  track  number  remains  unchanged. 


Current 


SERVICE  CALL 


SET  SECTOR 


F uric  t i on  : 

Sets  the  floppy  dis»e  sector  number  to  De  used  in 
subsequent  virtual  floppy  disk  accesses. 


A rgumen  t s : 


FID  = 


PARM  = 


15 

sector 


numoer 


to  2b 


Desc  r i ot i on : 

This  service  call  sets  the  sector  numoer  to  be  used 
in  subsequent  virtual  f 1 oopv  disk  accesses.  Since 
each  floopv  cis*  track  contains  2b  sectors  numbered 
from  1 to  2b,  this  value  cannot  be  less  than  1 nor 
greater  than  26. 

Error  Codes : 

0 - Operation  successful. 

12  - Sector  number  specified  is  less  than  1 or  qreater 
than  2o.  Current  value  of  sector  number  remains 
unchanaed . 


03 


SERVICE  CALL 


READ  FLOPPY 


F one  t i on : 

Simulates  reading  a 128  byte  sector  from  a floppy  disk. 


A rgument  S i 

FID  = 16 

PARM  = none  requi red 


Description: 

This  service  call  simulates  reading  from  a floppy  disk 
by  mapping  the  current  driver  track,  and  sector  numbers 
into  a mini-disk  address;  reading  the  mini-oisk  sector 
into  a buffer;  and  moving  128  bytes  from  the  mini-aisk 
Duffer  into  the  current  DMA  buffer  in  the  user's  memory 
space.  Errors  may  occur  at  two  points  in  the  process. 
If  the  calculated  mini-dis*  address  falls  outside  the 
bounds  of  the  virtual  di s<  file  attached  to  tne 
specified  virtual  orive,  it  inoicatss  an  error  in  the 
specified  track  number.  Errors  may  also  occur  during 
mini-disk  read  anc  write  ooerat ions.  A user  program 
must  consider  such  hardware  errors  as  irrecoverable 
since  MTS  provides  insufficient  information  to  determine 
the  cause. 


Error  Cooes  : 

0 - Operation  successful. 

8 - Abnormal  completion  status  was  returned  by  the 
mini-disk  controller  following  a read  or  write 
operat i on . 

12  - Calculated)  mini-disk  address  out  of  bounds.  Prob- 
able error  in  specified  track  number. 


SERVICE  CALL 


WRITE  FLUPPY 


F unc  t i on  : 

Simulates  writing  a 128  Dvte  sector  to  a floppy  disk. 


Argument  s : 

FID  = 17 

PARM  = none  required 


Description: 

fhis  service  call  simulates  writing  to  a floppy  disk  Dy 
mapping  the  current  drive*  track*  ana  sector  numbers 
into  a mini-disk  address*  reading  the  mini-aisk  sector 
into  a buffer!  ana  moving  128  bytes  of  data  from  the 
current  DMA  buffer  in  the  user's  memory  soace  into  the 
mini-disk  buffer.  Errors  may  occur  at  two  points  in  the 
process.  If  the  calculated  mini-aisk  abaress  falls 
outside  the  bouncs  of  the  virtual  disk  file  attached  to 
the  specified  virtual  drive*  it  indicates  an  error  in 
the  specified  track  number.  Errors  may  also  occur 
during  mini-disk  read  and  write  operations.  The  user 
should  interpret  sucn  hardware  errors  as  indicating  a 
bad  sector  on  the  virtual  flopoy  disk  ana  try  repeating 
the  operation  with  a different  floppy  disk  sector  and 
track  combination. 


Error  Coaes 


0 - Operation  successful. 

2 - Floppy  disk  is  read  only.  Write  is  not  permitted. 

8 - Aonormal  completion  status  was  returned  by  tre 


mini-disk  controller  following 
operation. 


read  or  write 


12  - 


Calculated  mini-disk  address  out  of  bounds, 
able  error  in  specified  track  number. 
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4.  Calling  Procedure 

Al)  calls  to  MTS#  whether  system  calls  or  service 
calls#  are  made  through  a single  entry  ooint  at  location 
2000H.  Each  call  takes  two  arguments:  the  function 

identifier  in  register  C;  and  a parameter  value  or  address 
in  register  pair  DE.  In  those  cases  where  the  second 
argument  is  only  a single  byte  the  contents  of  the  D 
register  are  ignored. 

Each  call  to  WTS  returns  a value  in  the  A register. 
This  value  may  be  an  error  code#  an  ASCII  character  code#  or 
zero.  The  value  zero  is  returned  by  those  routines  whose 
value  has  no  significance  such  as  WRITE  TERMINAL. 

Note  that  the  register  assignments  for  arguments  and 
returned  values  conform  to  the  PL/M  convention  for  passing 
parameters.  The  following  examples  illustrate  the  calling 
procedure  for  8080  Assembly  Language#  ML 80#  and  PL/M  in  the 
MTS  environment.  Each  examole  illustrates  the  sequence 
required  to  read  floopy  disk  sector  22#  track  <J3  on  drive  2 
into  a DMA  buffer  at  address  4100H. 

a.  8080  Assembly  Language 

when  writing  in  8080  assembly  language  mts  is 
accessed  by  a direct  call  to  the  MTS  entry  point: 

MTS  EUU  2000H 

• 

M V I c, 12  # F ID  = 12 

MV  I E # 2 # DR  I VE  NR  = 2 

CALL  MTS  ,'SELECT  DRIVE 

m V I C, 13  ; FID  = 13 


R6 


LX  I 

D,4l OOH 

;DMA  ADDRESS  = 

CALL 

MTS 

;SET  DMA 

MV  I 

C,  14 

;FID  = 14 

MV  I 

E f 43 

;TRACK  NR  - 43 

CALL 

MTS 

;SET  TRACK 

MV  I 

C,  15 

;fid  = 15 

MV  I 

E r 22 

;SECTOR  NR  S 22 

CALL 

MTS 

;set  sector 

MV  I 

C,  16 

;fid  = 16 

CALL 

• 

MTS 

;read  floppy 

• 

MV  I 

C,  15 

;fid  = 15 

MV  I 

E r 23 

.‘CHANGE  SECTOR 

CALL 

MTS 

,‘SET  SECTOR 

MV  I 

C,  16 

;fid  = 16 

CALL 

MTS 

.‘READ  AGAIN 

b.  ML80 

The  readibility  of  MLRO  source  orograms  may  be 
enhanced  by  defining  an  M80  macro  for  each  call  to  MTS  used 


in  the  program.  The  following  code  segment  contains  several 
exampl es . 


[MACRO  MTS  '2000M'] 

[MACRO  SELECTSDRIVE  DNR  ' 

C = 12;  E = [CNR];  CALL  [MTS]’] 
[MACRO  SETSDMA  DMA  • 

C = 13;  DE  S [DMA];  CALL  [MTSI'l 
[MACRO  SETSTRACK  T NR  ’ 

C = 14;  E = [TNR] ; CALL  [MTS]'] 
[MACRO  SETSSECTOR  SNR  • 

C = 15;  E = [SNR] ; CALL  [MTS] '] 
[MACRO  REAOSFLOPPY  ' 

C = 16;  CALL  [MTS] '] 


/*  SPECIFY  COMPLETE  SECTOR  AOORESS  AND  DMA  BUFFER  */ 
[SELECTSDRIVE  '2'1; 

[SETSDMA  '4100H' ] ; 

[SETSTRACK  '43'l; 

[SETSSECTOR  '22']; 

[REAOSFLOPPY]; 
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/*  INCREMENT  SECTOR  NR  AND  READ  AGAIN  */ 
ISET  SSEC  TOR  * 23  * ] ; 

IREADSFLOPPY] ; 


c.  PL/M 


*************************** 
SAMPLE  PL/M  PROGRAM  SEGMENT 
*************************** 

4000H: 

USER:  PROCEDURE; 


DECLARE 

LIT 

LITERALLY 

•LITERALLY  ' 

MTS 

LIT 

’ 2000H ' , 

SELECTSDRIVE 

LIT 

’ 12'  , 

SETSOMA 

LIT 

*13', 

SETSTRACK 

LIT 

• l a • , 

SETSSECTOR 

LIT 

•15', 

READSFLOPPY 

LIT 

‘ 16*  , 

DISPLAYSMSG 

LIT 

• l ' ; 

/*  MTS  INTERFACE  PROCEDURES  */ 

MTSl:  PROCEDURE  (FID, PARM); 

/*  PROVIDES  THE  MTS  INTERFACE  FOR  */ 

/*  FUNCTIONS  KHICH  DO  NOT  REQUIRE  A */ 

/*  RETURN  VALUE.  */ 

/*  INPUT:  FID  - MTS  FUNCTION  ID  */ 

/*  PARM  - PARAMETER  OR  ADDRESS*/ 

/*  OF  PARAMETER  LIST.  */ 

DECLARE  FID  BYTE,  PARM  ADDRESS; 

GO  TO  MTS ; 

END  MTSl; 

MTS2:  PROCEDURE  (FID, PARM)  BYTE; 


/*  PROVIDES  THE  MTS  INTERFACE  FOR  */ 
/*  FUNCTIONS  HhICH  REQUIRE  A VALUE  */ 
/*  RETURNED.  INPUT  PARAMETERS  ARE  */ 
/*  THE  SAME  AS  IN  MTSl.  */ 


DECLARE  FID  BYTE,  PARM  AOORESS; 
GO  TO  MTS; 

END  MTS2 ; 


/*  SPECIFY  COMPLETE  SECTOR  ADDRESS  AND  DMA  BUFFER  */ 


CALL  MTSHSELECTSDRIVE,  23; 

CALL  MTS  1 ( SETSDMA , «100H); 

CALL  MTS1 CSETSTRACK,  U33; 

CALL  MTS1 (SETSSECTOR,  223  ; 

/****************************************************/ 
/*  READ  FLOPPY  RETURNS  AN  ERROR  CODE  WHICH  WILL  */ 

/*  BE  RETURNED  TO  MTS  TO  BE  DISPLAYED  ON  THE  */ 

/*  TERMINAL  STATUS  LINE.  */ 

/a***************************************************/ 
CALL  MTS1 (DISPLAYIMSG,  MTS2 (READSFLOPPY  , 0) ) ; 


/*  INCREMENT  SECTOR  NR  AND  READ  AGAIN  */ 

CALL  MTS1 (SETSSECTOR,  233? 

CALL  MTSt (DISPLAYSMSG,  MTS2 ( READ3FLOPP Y , 0 3 3 ? 


5.  Limitations  on  User  Programs 

MTS  was  designed  to  provide  each  user  with  his  own 
virtual  8080  microprocessor.  Unfortunatel y*  the 

architecture  of  the  8080  CPU  is  not  amenaole  to  self- 
virtualization. As  a conseauence  several  limitations  must 
be  imposed  on  user  orograms  running  in  the  MTS  environment. 
These  limitations  are: 

(1)  The  user's  memory  space  extends  from  address  4000H  to 
FEFF,  a total  of  48»8<?6  bytes.  All  user  coder  data , 
and  buffers  must  be  contained  within  this  area  of 
memory . 

(.d)  All  user-def inec  stacks  must  be  four  bytes  longer  than 
the  maximum  size  reaui red  by  the  user.  The  four  extra 
bvtes  are  needec  if  an  interrupt  occurs  while  the 
user's  stack  is  full.  Failure  to  provide  this 
additional  space  mav  result  in  random  execution  errors 
which  are  not  reproducible  and  extremely  difficult  to 
di agnose . 

(3)  User  orograms  should  not  read  or  write  directly  to  I/O 
ports  while  running  under  MTS.  Terminal  and  floppy 
disk  access  is  provided  by  MTS  service  calls. 
Attempts  to  interface  directly  with  the  Syco r 440 
peripherals  or  auxiliary  storage  devices  may  interfere 
with  the  operation  of  MTS  and  damage  other  users. 


K*.  — 
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G.  CP/M  - MTS  CP/M  INTERFACE 

1.  CP/M  to  MTS  CP/M  Program  Conversion 

Programs  mav  be  easily  converted  from  execution 
under  the  basic  CP/M  system  to  execution  under  the  MTS  CP/M 
system.  In  the  basic  version  of  CP/M  the  base  address  of 
the  system  is  00H  whereas  the  base  address  of  the  MTS 
version  of  CP/M  is  4000H.  This  is  the  fundamental 
aifference  between  the  two  versions  of  CP/m.  By  taking 
existing  programs  and  translating  CP/M  related  addresses  up 
by  4000m  these  programs  will  run  in  the  MTS  CP/m 
env i ronment . 

Specifically#  the  following  addresses  must  be 
modi f i ed : 

Ca)  default  file  control  block  from  005CH  - 007CH  changed 
to  405CH  - 407CH 

(b)  default  128  byte  disk  buffer  from  0080H  - 00FFH 
changed  to  4080H  - 40FFH 

lc)  default  address  of  transient  program  area  from  0100H 
changed  to  4100H 

2.  PRT  Program 

A program  called  PRT  has  been  written  for  the  MTS 
CP/M  operating  system  which  provides  a orinter  system 
command  capability.  PRT  may  be  used  in  two  wavs. 

First#  if  a user  enters  an  I/O  control  P to  CP/M  the 
printer  switch  is  activated  thereby  causinq  all  information 
which  is  disolayeo  on  the  terminal  screen  to  also  be 
oisolayed  on  the  printer.  Recall  that  the  printer  requires 
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an  end  of  file  character  before  information  output  to  the 
printer  is  actually  printed.  After  the  user  has  issued  the 
command : 

PR  T 

the  program  outputs  the  end  of  file  character  thereby 
causing  the  printing  of  the  latest  information. 

Second#  PRT  may  be  utilized  to  print  any  ASCII  CP/M 
file.  After  the  user  enters  the  command: 

PR  T < f i 1 ename> 

the  PRT  program  causes  tne  hardcooy  output  of  the  file. 
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/■*  GLOBAL  IDENTIFIERS  */ 
,'****»******»******************************************/ 
/*  */ 
s*  THE  FOLLOWING  DECLARATIONS  DEFINE  SYSTEM  I DENT I-  */ 
/*  FIERS  WHOSE  SCOPE  IS  GLOBAL  THROUGHOUT  MTS.  THESE  */ 
/■m  IDENTIFIERS  MAY  BE  DIVIDED  INTO  THREE  DISTINCT  */ 
s*  GROUPS.  THE  FIRST  GROUP  INCLUDES  ANY  IDENTIFIER  */ 
/*  CONSIDERED  GLOBAL  BECAUSE  IT  IS  REFERENCED  IN  TWO  */ 
/*  OR  MORE  MODULES  OF  THE  MTS  ML80  SOURCE  PROGRAM.  BY  */ 
/■*  INCLUDING  THE  DECLARATIONS  FOR  ALL  SUCH  IDENTIFIERS*/ 


/*  IN  A SINGLE  MODULE,  INTERMODULE  LINKAGE  IS  GREATLY  */ 
/*  SIMPLIFIED,  AND  THE  SOURCE  PROGRAMS’S  READABILITY  */ 
/*  AND  CLARITY  ARE  IMPROVED.  */ 

/*  */ 
/*  THE  SECOND  GROUP  OF  IDENTIFIERS  INCLUDES  THOSE  */ 
/*  VARIABLES  WHICH,  TAKEN  TOGETHER,  DEFINE  THE  STATE  */ 
✓*  OF  THE  SYSTEM,  I.E.  THE  SYSTEM  STATE  BLOCK.  THE  */ 
/*  CONCEPT  OF  SYSTEM  STATE  IS  IMPORTANT  IN  MTS  BECAUSE*/ 
/*  THE  SYCOR  440  HARDWARE  ARCHITECTURE  PROVIDES  NO  */ 
/*  PROTECTION  AGAINST  INADVERTENT  OR  MALICIOUS  TAMP-  */ 
/*  ERING  WITH  SYSTEM  CODE  BY  USER  PROGRAMS.  TO  MINI-  */ 
/*  NT7E  THE  EFFECTS  OF  SYSTEM  CRASHES  CAUSED  BY  SUCH  */ 
° BRING  MIS  PROVIDES  A LIMITED  RECOVERY  CAPABIL-  */ 
AFTER  A TASK’S  TIMESLICE  EXPIRES,  AND  JUST  */ 
R TO  INITIATING  A NEW  TASK,  THE  MTS  MONITOR  */ 
S THE  CONTENTS  OF  THE  SYSTEM  STATE  BLOCK  TO  A */ 
i AMED  . MTSRCVR.  IF  A CRASH  OCCURS  WHILE  THE  */ 
iW  TASK  IS  EXECUTING,  RECOVERY  MAY  BE  ACCOMPLISHED*/ 
BY  REBOOTING  MTS  AND  READING  THE  CONTENTS  OF  */ 

/*  .MTSRCVR  BACK  INTO  THE  SYSTEM  STATE  BLOCK.  THE  */ 

/*  TASK  WHICH  CAUSED  THE  CRASH  IS  THEN  DELETED  AND  */ 
/*  NORMAL  OPERATION  CONTINUES.  */ 

/*  */ 

/*  THE  THIRD  AND  FINAL  GROUP  OF  IDENTIFIERS  INCLUDES  */ 


/*  SYSTEM  DATA  ASSOCIATED  WITH  A PARTICULAR  USER  TASK.*/ 
/*  SINCE  THIS  DATA  IS  ONLY  USED  WHEN  ITS  ASSOCIATED  */ 
/*  TASK  IS  ACTIVE,  THE  SPACE  REQUIRED  FORMS  A SYSTEM  */ 
/*  AREA  IN  THE  TASK’S  SWAP  IMAGE.  THIS  DATA  IS  SWAPPED*/ 
/*  IN  AND  OUT  ALONG  WITH  THE  USER  AREA  OF  THE  SWAP  */ 
/*  IMAGE.  */ 
/*  */ 
/*  THE  THREE  PRIMARY  IDENTIFIER  GROUPS  DESCRIBED  */ 
/*  ABOVE  MAY  ALSO  BE  SUBDIVIDED  BASED  ON  USAGE  AND  */ 


STORAGE 

ALLOCATION  REQUIREMENTS.  THE  GROUP 

AND 

/* 

SUBGROUP 

HEADINGS  FOR  DECLARATIONS  IN  THIS 

MODULE 

*/ 

/* 

ARE  AS  FOLLOWS: 

/* 

*/ 

/* 

A. 

GENERAL  SYSTEM  DECLARATIONS 

*/ 

B. 

SYSTEM  STATE  BLOCK  DECLARATIONS 

/% 

1.  SYSTEM  CONTROL 

*/ 

2.  TASK  CONTROL  TABLE 

*/ 

/* 

3.  DISK  MAP  TABLE 

*/ 

/* 

C. 

SYSTEM  SWAP  AREA  DECLARATIONS 

/% 

1.  VIRTUAL  DISK  CONTROL  BLOCK 

*/ 

/* 

2.  SWAP  STACK 

*/ 

/*  THE  ORDER  OF  ALL  DECLARATIONS  IN  THIS  MODULE  MUST  */ 
/*  BE  MAINTAINED  TO  PRODUCE  A PROPERLY  FORMATTED  */ 
/*  OBJECT  MODULE.  IN  THIS  REGARD  SPECIFICATION  OF  THE  */ 
/*  INITIAL  ATTRIBUTE  IN  A DECLARATION  MUST  BE  CONSID-  */ 
/*  ERED  CAREFULLY  SINCE  THE  ML80  COMPILER  ALLOCATES  */ 
/*  DIFFERENT  AREAS  OF  MEMORY  FOR  INITIALIZED  AND  */ 
/*  UNINITIALIZED  VARIABLES.  SPECIAL  PRECAUTIONS  ARE  */ 
/*  ALSO  NECESSARY  FOR  LOCAL  VARIABLES  USED  ONLY  IN  */ 
/*  SINGLE  MODULES.  THE  ML80  LINK  EDITOR  IS  FORCED  TO  */ 
/*  ALLOCATE  SPACE  FOR  SUCH  VARIABLES  WITHIN  THE  */ 
/*  MODULE’S  CODE  AREA  BY  DECLARING  EACH  SUCH  VARIABLE  */ 
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/*  WITH  TYPE  DATA.  THIS  TECHNIQUES  IMPOSES  A PENALTY  */ 
/*  OF  THREE  BYTES  PER  DECLARATION  FOR  UNNECESSARY  */ 
✓*  JUMP  INSTRUCTIONS.  BUT  THE  SIMPLIFICATION  OF 
/*  INTERMODULE  LINKAGES  MAKES  THE  TRADEOFF  WORTHWHILE.*/- 
/*  */ 
/******************************************************/' 
/Hill****************************************************/ 


/X*****************************************************/ 

/xx*x*x*xx**x  GENERAL  SYSTEM  DECLARATIONS  xxxx*********/ 

z******************************************************/ 


DECLARE  PRTSSTAT  BYTE  INITIAL  ( 0) ; 

z'*  PRINTER  STATUS  BYTE  x/ 

DECLARE  BUF*PTR(  2)  BYTE  INITIAL  (0.1) i 
/*  POINTER  INTO  PRINT  BUFFER  */ 

DECLARE  RESERVED(  13)  BYTE  INITIAL  ( 0 , 0. 0 , 0 , 0 , 0 , 0, 0 , 0. 0 , 

0.0.0) ; 

/x  RESERVED  FOR  CASSETTE  AND  ASYNC  INTERFACE  */ 

DECLARE  PARMC2)  BYTE  INITIAL  (0,0); 

DECLARE  DISK  BYTE  INITIAL  (0); 

DECLARE  DRIVE  BYTE  INITIAL  (0); 

DECLARE  ERROR  BYTE  INITIAL  (0); 

DECLARE  LOCK  BYTE  INITIAL  (1); 


/*  SYSTEM  LOCK  - 

/*  BIT  0:  SWAP  LOCK  - MTS  CODE  EXECUTING  */ 

/*  BITS  1-7:  (NOT  USED)  *✓ 

DECLARE  TASKSTIMER  BYTE  INITIAL  ( 0FFH) ; 

/*  COUNTER  RECORDING  HOW  MANY  TIMER  INCREMENTS  */ 
/*  ( 30MS)  REMAIN  IN  TIMESLICE  */” 


DECLARE  SVCSSTACK(20)  BYTE  INITIAL  (0); 

/*  SERVICE  MODULE  STACK 
DECLARE  SYS*STACK(20)  BYTE  INITIAL  (0); 

/-*  MONITOR  MODULE  STACK 
DECLARE  MDBUF (512)  BYTE  INITIAL  (0): 

/*  MIN  I -DISK  BUFFER  - CONTAINS  ONE  SECTOR 
DECLARE  MDSAD( 2)  BYTE  INITIAL  (0.0); 

SECTOR  NUMBER  OF  DATA  CONTAINED  IN  MDBUF  *s 


/******X***X****X******X*******************************./ 
/XXX*******  SYSTEM  STATE  BLOCK  DECLARATIONS  ***********/ 
/x*****************************************************/' 


/xxxxx***x******x**x  SYSTEM  CONTROL  xxxxxxxxxxxxxxxxx**/ 

DECLARE  TASK  BYTE  INITIAL  (0); 

/*  TERMINAL  NR  OF  TASK  CURRENTLY  ALLOCATED  *' 

/*  THE  CPU  - RANGE  0-3  *' 

DECLARE  REC#FILE(2)  BYTE  INITIAL  (0.6); 

/*  MINI-DISK  SECTOR  NUMBER  OF  . MTSRCVR  */ 

DECLARE  CNFG3F ILE( 2)  BYTE  INITIAL  (0.0); 

/*  MINI-DISK  SECTOR  NUMBER  OF  . MTSCNFG  */ 

/***x***xxxx******  TASK  CONTROL  TABLE  x**x**x*x*x****xx/ 
/*  THE  TCT  CONTAINS  INFORMATION  ON  THE  STATE  OF  EACH  */ 
/■*  TASK  AND  DATA  REQUIRED  TO  SUPPORT  SWAPPING.  EACH  */ 
/*  VARIABLE  CONTAINS  FOUR  ENTRIES  - ONE  FOR  EACH  OF  *s 
/*  THE  FOUR  TERMINAL  TASKS.  *' 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/ 

DECLARE  TCT3STATUS( 4)  BYTE  INITIAL  (0,0, 0.0); 


/* 

BIT 

0: 

SIMULATE  BOOTSTRAP  DURING  NEXT 

xs 

/X 

TIMESLICE 

xs 

/* 

BIT 

n 

CALL  MCP  DURING  NEXT  TIMESLICE 

xs 

BIT 

2: 

(NOT  USED) 

X/ 

/* 

BIT 

3: 

(NOT  USED) 

XS 

/* 

BIT 

4: 

RST  7 DURING  NEXT  TIMESLICE 

xs 

/'X 

BIT 

3 i 

BLOCKED  FOR  TERMINAL  I/O 

XS 

/X 

BIT 

6: 

CURRENT  SWAP  IMAGE  RESIDES  ON 

xs 

103 


1 


/*  MINI-DISK  */ 

/*  BIT  7:  CURRENT  SWAP  IMAGE  IN  MEMORY  */ 

DECLARE  TCT*DH(32>  BYTE  INITIAL  ( 0 , 0 , 0 , 0 , 0 , 0 , 0, 0 , 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

0,0, 0,0, 0.0, 0.0) i 

/*  DRIVE  MAP  - POINTERS  TO  VIRTUAL  DISK  ASSOC - 
/*  IATED  WITH  EACH  VIRTUAL  DRIVE.  BYTES  0-7 
/*  CORRESPOND  RESPECTIVELY  TO  DRIVES  A-H  FOR 
/*  EACH  8 BYTE  ENTRY. 

/*  BITS  0-4:  DISK  NR  - RANGE  0-31 
/+  BIT  3:  (NOT  USED) 

/*  BIT  6:  READ  ONLY  FLAG 

BIT  7:  IN  USE  FLAG 

DECLARE  TCT0S IZE(  4)  BYTE  INITIAL  (32,32,32,32): 

/*  SIZE  OF  SWAP  IMAGE  EXPRESSED  IN  NUMBER  */ 

■ OF  3 12  BYTE  MINI-DISK  SECTORS  */ 

DECLARE  TCT0BOE(  8)  BYTE  INITIAL  ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0) ; 
DECLARE  TCT0EOE(  8)  BYTE  INITIAL  ( 0 , 0, 0, 0, 0,0, 0, 0) ; 

/*  MIN I -DISK  SECTOR  NUMBER  FOR  EACH  SWAP  FILE  */ 

/*  - INITIALIZED  WHEN  MTS  LOADED  */ 

/xxxxxxxxxxxxxxxxxxx  DISK  MAP  TABLE  xxxxxxxxxxxxxxxxxx*/ 
/*  THE  DMT  CONTAINS  INFORMATION  ON  THE  STATUS,  PRO-  */ 
/*  TECTION,  AND  LOCATION  ON  THE  MINI-DISK  OF  ALL  VIR-  */ 
/*  TUAL  FLOPPY  DISKS.  EACH  VARIABLE  CONTAINS  32  */ 

/*  ENTRIES  - ONE  FOR  EACH  POTENTIAL  DISK  NR.  THE  */ 

/■*  ENTIRE  TABLE  IS  LOADED  AND  VERIFIED  DURING  MTS  */ 

/*  INITIALIZATION.  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

DECLARE  DMTSFLAG(32)  BYTE  INITIAL  ( 0 . 0 , 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0.0. 0.0, 0,0, 0,0): 

/*  BIT  0:  DISK  EXISTS  */ 

BIT  l:  IN  USE  */ 

/x  BIT  2:  PROTECTED  - KEY  REQUIRED  */ 

/*  BIT  3:  RESTRICTED  TO  READ  ONLY  W/0  KEY  */ 

BITS  4-7".  (NOT  USED)  */ 

DECLARE  DMT*B0E(64)  BYTE  INITIAL  ( 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0. 0,0. 0,0, 

0,0, 0,0, 0,0, 0,0, 0,0. 0,0, 0,0, 0,0, 0,0, 0,0. 0,0, 0,0, 

0,0, 0,0, 0,0,0) ; 

/*  MINI-DISK  SECTOR  NUMBER  FOR  BEGINNING  */ 

/*  OF  EXTENT  */ 

DECLARE  DMTSE0E(64)  BYTE  INITIAL  ( 0, 0 , 0 , 0 , 0, 0 , 0 . 0 , 0 , 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0. 0,0, 0.0, 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0. 0,0, 0,0, 0,0, 

0.0, 0,0, 0,0,0) ; 

/*  MINI-DISK  SECTOR  NUMBER  FOR  END  */ 

/*  OF  EXTENT  W 

DECLARE  DMT»KEY(  128)  BYTE  INITI.AL  ( 20B)  : 

/*  ONE  TO  FOUR  ASCII  CHAR  PROTECTION  KEY  */ 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/ 
/xxxxxxxxxxx  SYSTEM  SWAP  AREA  DECLARATIONS  xxxxxxxxxxxx/ 
/xxxxXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^ 


/xxxxxxxxxxxxx  VIRTUAL  DISK  CONTROL  BLOCK  xxxxxxxxxxxx*/ 
/*  EACH  USER  TASK  HAS  AVAILABLE  8 VIRTUAL  DRIVES  WHICH*/ 


/*  MAY  BE  SELECTED  TO  ACCESS  THE  ATTACHED  VIRTUAL  */ 
/*  DISK.  FOR  EACH  USER  IT  IS  NECESSARY  TO  RECORD  */ 
/*  WHICH  DRIVE  IS  CURRENTLY  ACTIVE,  AND  ADDITIONAL  */ 
/*  DATA  NEEDED  TO  MAP  A VIRTUAL  DISK  ACCESS  INTO  A */ 
/*  PHYSICAL  MINI-DISK  ACCESS.  ALL  THIS  INFORMATION  IS  */ 
/*  MAINTAINED  IN  THE  VDC  BLOCK.  THE  VDC  BLOCK  ASSOC-  */ 
/*  IATED  WITH  EACH  TASK  IS  CONTAINED  IN  THAT  TASKS  */ 
/*  SWAP  FILE  IN  A SPECIAL  AREA  RESERVED  FOR  MTS  SYS-  */ 
/*  TEM  USE.  THIS  MEANS  THAT  ONLY  ONE  OF  THE  FOUR  VDC  */ 
/*  BLOCKS  MAINTAINED  BY  THE  SYSTEM  IS  EVER  RESIDENT  */ 
/*  IN  MEMORY  AT  ANY  ONE  TIME.  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


106 


*/ 

*/ 

X/ 

X/ 

*/ 

*/ 

*/ 

*/■ 


DECLARE  VDCfDRI VE  BYTE; 

/*  BITS  0-2:  DRIVE  NR  FOR  DRIVE  CURRENTLY  */ 
/*  SELECTED  */ 

/*  BITS  3-3 : (NOT  USED)  */ 

s*  BIT  6:  READ  ONLY  FLAG 

/*  BIT  7:  MODIFICATION  FLAG  - SET  WHEN  CON-  */ 
/*  TENTS  OF  BUFFER  MODIFIED  */ 

DECLARE  VDC«B0E<2)  BYTE; 

MINI-DISK  SECTOR  NUMBER  FOR  BOE  OF  VIRTUAL 
/■*  DISK  CURRENTLY  ATTACHED  TO  SELECTED  DRIVE  */ 
DECLARE  VDCSEOEC  2)  BYTE; 

/*  MINI-DISK  SECTOR  NUMBER  FOR  EOE  OF  VIRTUAL 
/*  DISK  CURRENTLY  ATTACHED  TO  SELECTED  DRIVE  *s 


DECLARE  VDC0SECTOR  BYTE; 

VIRTUAL  DISK  SECTOR  NR  FOR  SUBSEQUENT  */ 
/*  ACCESSES  - RANGE  1-26 
DECLARE  VDCSTRACK  BYTE; 

/*  VIRTUAL  DISK  TRACK  NR  FOR  SUBSEQUENT 
ACCESSES  - RANGE  0-76 
DECLARE  VDC0DMAC  2)  BYTE; 

/*  MEMORY  ADDRESS  OF  128  BYTE  DMA  BUFFER  */ 
/■*  FOR  SUBSEQUENT  VIRTUAL  DISK  ACCESSES  */ 
DECLARE  PRT0CNTRL  BYTE  INITIAL  (0); 


/* 

BITS 

0,  l: 

TASK 

*/ 

/* 

BITS 

2-3: 

NOT  USED 

/* 

BIT 

6: 

PRINT  BIT 

*/ 

/% 

BIT 

7: 

IN  USE  BIT 

*/ 

DECLARE  PRT»B0E<2)  BYTE  INITIAL  (0,0); 

MINIDISK  SECTOR  • OF  MTSPRT  BOE  */ 

DECLARE  PRT»E0E(2>  BYTE  INITIAL  (0,0); 

MINIDISK  SECTOR  * OF  MTSPRT  EOE  */ 

DECLARE  PRT*SEC<2)  BYTE  INITIAL  (0,O); 

/*  SECTOR  * OF  CURRENT  SECTOR  IN  PRINT  BUFFER 
DECLARE  SPARES! 9 ) BYTE  INITIAL  ( 0 , 0 , 0 , 0, 0 , 0 , 0 , 0 , 0) ; 

/*  RESERVED  CASSETTE  AND  ASYNC  INTERFACE  */ 

/*********************  SWAP  STACK  ********************n**/ 
/*  EACH  TIME  A TASK  IS  SWAPPED  OUT  THE  CURRENT  OPER-  */ 

s*  ATING  ENVIRONMENT,  I.E.  PSW,  BC.  DE,  HL.  AND  SP , */ 

/*  MUST  BE  SAVED  IN  A KNOWN  AREA  SO  THAT  IT  CAN  BE  */ 

QUICKLY  RESTORED  WHEN  THE  TASK  IS  SWAPPED  BACK  IN. 

/*  MTS  USES  A STACK  IN  THE  SYSTEM  AREA  OF  THE  SWAP  */ 

/*  IMAGE  TO  HOLD  THE  ENVIRONMENT  WHEN  A TASK  IS  */ 

/*  INACTIVE. 

DECLARE  SWAP*STACK(  10)  BYTE; 

s*  AREA  IN  WHICH  USER  ENVIRONMENT  IS  *s 
/*  SAVED  WHEN  TASK  IS  SWAPPED  OUT  */ 

EOF 
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/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/*  INTERRUPT  MODULE  */ 

/******************************************************/ 
/*  */ 

✓x  */ 

/*  ALL  HARDWARE  INTERRUPTS  ON  THE  SYCOR  44®  SYSTEM  */ 
/*  CAUSE  THE  EXECUTION  OF  A RST  1 INSTRUCTION.  THIS  */ 
/•*  INSTRUCTION  BEHAVES  LIKE  A CALL  TO  LOCATION  O098H,  *S 
/*  I.E.  THE  PC  VALUE  IS  STACKED,  AND  CONTROL  TRANS-  */ 
Z'*  FERRED  TO  LOCATION  0008H.  DUE  TO  THIS  HARDWARE  */ 

/*  CHARACTERISTIC,  THE  USER  MUST  ENSURE  THAT  ANY  USER  */ 
/*  DEFINED  STACKS  ARE  AT  LEAST  FOUR  BYTES  LARGER  THAN  *' 
THE  MAXIMUM  SIZE  REQUIRED  BY  THE  USER’S  OWN  CODE.  */ 
/*  SINCE  ALL  PERIPHERAL  DEVICES  CAUSE  EXECUTION  OF  */ 
/■*  THE  SAME  INTERRUPT  INSTRUCTION,  SOME  MEANS  MUST  BE  */ 
/*  AVAILABLE  TO  DISTINGUISH  BETWEEN  DEVICES  WHENEVER  */ 

/*  AN  INTERRUPT  OCCURS.  THE  SYCOR  440  SOLVES  THIS  *■/ 
/*  PROBLEM  BY  DEFINING  AN  INTERRUPT  LEVEL  FOR  EACH  */ 
/*  DIFFERENT  DEVICE.  THERE  ARE  17  INTERRUPT  LEVELS 

WITH  VALUES  RANGING  FROM  0 TO  16.  A HIGHER  NUMERIC  */ 
/*  VALUE  ALSO  IMPLIES  A HIGHER  PRIORITY  FOR  THE  */ 

/*  ASSOCIATED  DEVICE.  WHEN  AN  INTERRUPT  OCCURS  THE 
/*  LEVEL  IS  AVAILABLE  ON  INPUT  LATCH  0.  SIMULTANEOUS  */ 
s*  INTERRUPTS  WILL  BE  INPUT  SEQUENT I ALLY  IN  PRIORITY, 

/*  I.E.  DESCENDING,  SEQUENCE  BY  LEVEL  NUMBER.  WHEN  */ 
/x  THE  LEVEL  READS  ZERO  ALL  PENDING  INTERRUPTS  HAVE  */ 
/*  BEEN  PROCESSED.  THE  INTERRUPT  LEVEL  ASSIGNMENTS  */ 
/x  WHICH  APPLY  TO  THE  CURRENT  NPS  SYCOR  440  HARDWARE  */ 
CONFIGURATION  ARE  AS  FOLLOWS:  */ 

/*  */ 

/*  LEVEL  DEVICE  */ 

/x  

/X  16  DEBUGGER 

/*  13  POWER  FAIL  */ 

14  PARITY  CONTROL 

S*  11  ASYNC  COMM  */ 

/x  10  TERMINAL  GROUP  0 */ 

r*  8 TIMER  */• 

/*  6 PRINTER  0 

2 FLOPPY  DISK  */ 

/*  1 CASSETTE  */ 

/*  THIS  MODULE  CONTAINS  THE  CODE  USED  BY  MTS  TO  PRO- 

/*  CESS  INTERRUPTS.  THIS  CODE  CONSISTS  OF  AN  INTER-  */ 
s*  RUPT  CONTROLLER  PLUS  A SET  OF  INTERRUPT  HANDLER  *■/ 

/■*  ROUTINES  - ONE  ROUTINE  FOR  EACH  DEVICE.  THE  INTER-  */ 

/*  RUPT  CONTROLLER  SAVES  THE  CURRENT  ENVIRONMENT,  */ 

/*  IDENTIFIES  THE  INTERRUPT  LEVEL,  CALLS  THE  APPROP-  */ 
RIATE  HANDLER  ROUTINE,  AND  THEN  RESTORES  THE  */ 

/*  ENVIRONMENT  BEFORE  RETURNING  TO  THE  INTERRUPTED  */ 

/*  PROGRAM.  THE  HANDLER  ROUTINES  ARE  TAILORED  TO  THE  */ 
/x  SPECIFIC  REQUIREMENTS  OF  DIFFERENT  DEVICES.  IN  */ 

/*  ORDER  TO  UTILIZE  THE  CODE  CONTAINED  IN  THE  INTER- 

RUPT  MODULE  IT  IS  NECESSARY  FOR  THE  MTS  INITIAL-  */ 
/*  IZATION  ROUTINE  TO  LOAD  A JUMP  TO  THE  INTERRUPT 

CONTROLLER  IN  MEMORY  LOCATIONS  0008-00OAH.  */ 

/*x  */ 

/*  */ 

/ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Z 

/xxxxxxxxxxxxxxxx**xxxxxxx*xxxxx*xx***xxxxxxxxxxxxxxxxx/ 

/xxxxxxxxxxxxx  INTERMODULE  LINKAGE  MACROS  xxxxxxxxxxxxx/ 

DECLARE  GLOB1  COMMON; 

[ INT  MB  M2B  TB] 

CMB:=0300H1  CTB:«1000HI  CM2B:=0600HI 

[MACRO  MONITOR  ’[HEX  MB  + 0AAHI ’ ] 

[ MACRO  MOVBUF  ’ [ HEX  M2B  + 4 1HI ’ ] 

C MACRO  READ* P RTS BUF  ’ [ HEX  M2B  + 9EH]  ’ I 
[MACRO  TERMS  I NPUTSCTRL  ’ [ HEX  TB  4 735 H] ’ 1 
[MACRO  BLINKSCURSOR  ’[HEX  TB  + 803HI ’ I 
[ MACRO  MTSSMSG  ’ ( HEX  TB  + 837HI ’ ] 
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p 

C MACRO  PRTSSTAT  ’ GLOB 1(0)’] 

C MACRO  BUFSPTR  ’ GLOB 1 ( 1)  ’] 

C MACRO  LOCK  ' GLOB1 ( 15H) * ] 

[MACRO  TASKS TIMER  ’ GLOB1 ( 16H) * ] 

C MACRO  TASK  ’ GLOBK  24 lH>  ’ 1 
C MACRO  PRTSCNTRL  1 GLOB I ( 39 EH) ’ I 
C MACRO  SWAPSSTACK  ’ GLOB  1 ( 3B7H) ’ ] 


/************  INTERRUPT  PROCESSING  MACROS  *************/ 

[MACRO  LEVEL  ’ IN(0>  * J 
[MACRO  DEBUGS LATCH  ’0FFH’] 

[MACRO  CSSTS LATCH  ’83H’] 

[MACRO  PRINTERS LATCH  '8 AH’ I 
[ MACRO  PRTSCHAR  ’ OUT( 8AH) =■ A* I 
[ MACRO  PRTSRDY  ’ 0Btm’ ] 

[MACRO  CNTRLSZ  ' 1AH’ ] 

[MACRO  TIMERS LATCH  ’02H’3 
[MACRO  TERMINAL8LATCH  ’ 3EH’ ] 

[MACRO  MATRIX* LATCH  ’ 3FH’ ] 

[MACRO  INTSPENDING  ’( A* [ LEVEL! N.A)  'ZERO’ ] 

[MACRO  DEBUGS INTSPENDING  ’ ( As  [ LEVEL! i A: : 16)  ZERO’ 3 

/****************  MODULE  DECLARATIONS  *****»***********,' 


[ INT  TOP  BLINK  EP]  [BLINK:=4]  [TOP:=30]  [EP:=TOP-10] 
DECLARE  INTSSTACK  DATA  ( 0 , 0 , 0, 0 , 0 , 0 , 0 , 0, 0 , 0, 0, 0 , 0 , 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0); 

DECLARE  BLINKSTIMER  DATA  (1); 

DECLARE  SAVHL  DATA  (0,0); 

DECLARE  TN  DATA  ( 0)  ; 

/********************:*  PROCEDURES  ********************;*/ 


DUMMYSHDLR:  PROCEDURE; 

/*********  *sMt**:<c***:Mc******:****:**:ie:K***:Mc*  a:*******::*:***:*:* 
/*  THIS  PROCEDURE  PROVIDES  A COMMON  EMPTY  INTERRUPT  */ 
HANDLER  FOR  THOSE  INTERRUPT  LEVELS  WHICH  SHOULD  */ 
/*  NEVER  OCCUR  WITH  THE  CURRENT  NPS  SYCOR  440  HARD-  */ 

s*  WARE  CONFIGURATION.  ITS  ONLY  ACTION  IS  AN  IMMEDI-  */ 

'*  ATE  RETURN.  */ 

/■*  CALLED  BY:  I NTERRUPTSCONTROLLER  */ 

/'iMHM:**********^***********:*:*****************:**:******:#,' 

RETURN; 

END  DUMMY* HLDR; 


DEBUGS  HDLR : PROCEDURE; 

/****************:***************************  *x*********,z 

z'*  THIS  HANDLER  IS  INCLUDED  TO  ALLOW  USAGE  OF  THE  */ 

/*  SYCOR  340B  DEBUGGER  IN  THE  SOFT  DEBUG  MODE  WHEN  */ 
/*  RUNNING  UNDER  MTS.  IT  WAS  DISCOVERED  DURING  DEVEL-  */ 
/■*  OPMENT  AND  TESTING  THAT  THE  DEBUGGER  IS  LARGELY  */ 

/*  UNRELIABLE  IN  THE  SOFT  MODE.  THIS  IS  APPARENTLY  */ 

/*  DUE  TO  HARDWARE  CHANGES  IN  THE  440  SYSTEM  MADE  */ 
AFTER  THE  DEBUGGER  WAS  DESIGNED.  */ 

'*  CALLED  BY:  I NTERRUPTSCONTROLLER  */ 

/Z*#******x****:r******************:**********************/ 
/*  DISPLAY  ENVIRONMENT  ON  DEBUGGER  */ 

HL»2+SP; 

M(6H)=(A=L);  M(7H)  = (A=H); 

/*  ACKNOWLEDGE  DEBUG  INTERRUPT  */' 

OUT(  [ DEBUGS LATCH] ) = ( A= 1 ) ; 

/-*  CPU  IDLES  WHILE  WAITING  FOR  DEBUGGER  TO  *s 
/*  INITIATE  RESUMPTION  OF  EXECUTION  */ 

DO  WHILE  [ DEBUGS INTSPENDING] ; 

END; 

END  DEBUGS HDLR; 

CASSETTES HDLR:  PROCEDURE; 

OUT( [ CSSTSLATCH] ) = ( A= 10H)  ; 

END  CASSETTES HDLR; 

PRINTERS HDLR:  PROCEDURE; 
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/**********************************************************/ 


/*  THE  PRINTER  INTERUPT  HANDLER  INPUTS  THE  PRINTER  */ 

/*  STATUS.  IF  THE  CONTROL  BYTE  INDICATES  THAT  NO  TASK  IS  */ 
/*  CURRENTLY  ALLOCATED  THE  PRINTER,  NO  ACTION  IS  TAKEN.  */ 
/*  HOWEVER,  IF  A TASK  IS  ALLOCATED  THE  PRINTER  AND  THE  */ 
/*  DEVICE  IS  NOT  READY  THEN  THE  MESSAGE  ’PRINTER  NOT  RDY’  */ 
/*  IS  DISPLAYED  AT  THE  USER’S  TERMINAL!  OTHERWISE  A */ 

/*  CHARACTER  FROM  THE  PRINT  BUFFER  LOCATED  AT  100H  IS  */ 

/*  OUTPUT  TO  THE  PRINTER.  THIS  PROCESS  CONTINUES  UNTIL  */ 
/*  AN  END  OF  FILE  CHARACTER  HAS  BEEN  OUTPUT  TO  THE  */ 

/*  PRINTER  AT  WHICH  TIME  THE  DEVICE  IS  RELEASED  FOR  USE  */ 
/*  BY  ANOTHER  TASK.  */ 

/*  CALLED  BY:  I NTERRUPTWCONTROLLER  */ 


/**********************************************************/ 

A* IN(  C PRINTERS LATCH] ) ; 
l PRT*STAT] = A; 

OUT( C PRINTERSLATCH] ) * ( A=80H) ; /*  CLEAR  PRINTER  INTERUPT  */ 
IF  < A* [ PRT»S  i AT] ; A: : C PRTSRDY] ) ’ZERO  THEN 
DOi  /*  PRINTER  NOT  READY  */ 

IF  ( A* C PRT*CNTRL] ! A::0>  TZERO  THEN 
DO;  /*  GET  TASK  * FOR  ERROR  MESSAGE  */ 

TN»  < A*  C TASK]  ) ; 

I TASK]  = < A=  C PRTSCNTRL]  3 03B)  ; 

E=7;  CALL  CMTSSMSG]; 
t TASK]  = ( A-TN)  ; 

I PRTSCNTRL]  3 ( A*0> ; /*  RESET  PRINT  CONTROL  */ 
RETURN; 

END; 

END 

ELSE 

DO;  /*  PRINTER  IS  READY  FOR  CHARACTER  OUTPUT  */ 

IF  < A3  < I PRTSCNTRL] ; A=<A>  CY  THEN 
DO; 

HL= I BUFWPTR] ; 

IF  (A33;  A::H)  ZERO  8 (A=0;  A::L>  ZERO  THEN 
DO;  /*  END  OF  PRINT  BUFFER,  GET  NEXT  SECTOR  */ 

CALL  CREAD0PRT0BUF] ; 

C BUF0PTR]  3 ( HL= 100H) ; 

END; 

IF  ( A3M(  HL) ; A: : C CNTRLSZ] ) !ZERO  THEN 
DO;  /*  PRINT  OUT  CHARACTER  */ 

C PRTSCHAR] ; 

C BUF0PTR] 3 ( HL= C BUT9PTR] , + 1 ) ; 

/*  BUF0PTR  INCREMENTED  */ 

RETURN; 

END 

ELSE 

/*  EOF  ENCOUNTERED,  RESET  PRINTER  */ 

I PRT0CNTRL] 3 ( A3  0 ) ; 

END; 

END; 

END  PRINTER* HDLR; 

TIMER* HDLR:  PROCEDURE; 

/'»*:4c:Kx*****************x***:fc:F:***:*:R:K:Kx:K*****X**:*x**xx***/' 

/*  THE  TIMER  INTERRUPT  HANDLER  MANAGES  THE  TWO  FUNC-  */ 

/*  TIONS  OF  MTS  WHICH  OCCUR  AT  PERIODIC  INTERVALS:  */ 

/*  BLINKING  THE  TERMINAL  CURSORS  AND  RETURNING  CONTROL*/ 

/*  TO  THE  SYSTEM  WHEN  A TASK’S  TIMESLICE  EXPIRES.  IN  */ 

/*  ORDER  TO  KEEP  TRACK  OF  THE  TWO  INTERVALS  INVOLVED.  */ 

/*  THE  PROCEDURE  MAINTAINS  TWO  COUNTERS.  THESE  COUN-  */ 

/*  TERS  ARE  EACH  SET  TO  AN  INITIAL  VALUE  AND  THEN  */ 

/*  DECREMENTED  EACH  TIME  A TIMER  INTERRUPT  OCCURS.  */ 

/*  THE  ACTUAL  VALUE  CONTAINED  IN  EITHER  COUNTER  AT  ANY*/ 

/*  INSTANT  REPRESENTS  THE  TIME  REMAINING  IN  THE  INTER-*/ 

/*  VAL  IN  MULTIPLES  OF  30MS  SINCE  THIS  IS  THE  FIXED  */ 

/*  INTERVAL  BETWEEN  TIMER  INTERRUPTS.  WHEN  THE  TASK*  */ 

/*  TIMER  COUNTER  HAS  BEEN  DECREMENTED  TO  ZERO,  CONTROL*/ 


/*  IS  TRANSFERRED  TO  THE  MONITOR  WHERE  THE  CURRENT  */ 
/*  TASK  IS  SWAPPED  OUT  AND  A NEW  TASK  SWAPPED  IN.  */ 
/*  WHEN  THE  BLINK*TIMER  COUNTER  REACHES  ZERO  THE  */ 
/*  BL INBICURSOR  PROCEDURE  IS  CALLED.  IN  EITHER  CASE  */ 


/*  THE  TIMER  HANDLER  RESETS  THE  COUNTER  TO  ITS  INIT-  */ 


y*  IAL  VALUE  AND  CONTINUES . *y 

/*  CALLED  BY!  I NTERRUPTSCONTROLLER  */ 

/**»*:«****:*********:****:*****:*:**:**:*  x*****************:***:/ 

C TASKSTIMER]  3 1 A3  [ TASKSTIMER]  - 1 ) ; 

BLINK8TIMER3  ( A3 BL I NKST I MER- 1 ) ; 

IF  (A::0)  ZERO  THEN  /*  BLINK  INTERVAL  EXPIRED  */ 

DO; 

CALL  [BLINKSCURSOR]  ; 

BL I NKST I MER3 1 A3  [BLINK]  ) ; 

END; 

OUTIITIMERSLATCH])3! A30) ; /*  RESET  TIMER  */ 

IF  ( A* C TASKSTIMER] ; A::0>  ZERO  THEN 
DO;  f*  TIMESLICE  EXPIRED  */" 

IF  ( A* > C LOCK] ) ICY  THEN 

DO;  y*  SWAPPING  UNLOCKED  *' 

BC3 10;  DE3 . I NTSSTACKI  CEP]); 

HL* . C SWAP0STACK] ; 

CALL  CMOVBUF] ; 

ENABLE; 

GOTO  [MONITOR]  ; 

END 

ELSE  C TASKSTIMER] 3 1 A3  1 ) ; 

END; 

END  TIMERS HDLR; 

TERMINALS HDLR:  PROCEDURE; 

/:M>**ira********X**:M'*:**X*XX*****X*»:K:K:«****:*X******X*:K**/ 

/*  THIS  PROCEDURE  PROCESSES  THE  INTERRUPT  GENERATED  */ 
y*  FROM  ANY  KEY  DEPRESSION  AT  ANY  OF  THE  TERMINALS.  *y 
y*  IT  GETS  THE  TERMINAL  IDENTITY  AND  THE  KEYBOARD  */ 
y*  MATRIX  CODE  AND  THEN  CALLS  TERMINALS  I NPUTSCONTROL  *y 


y*  TO  PROCESS  THE  KEY.  *y 
y*  OUTPUT:  C - MATRIX  CODE  *y 
y*  E - TERMINAL  NUMBER  *y 
y*  CALLED  BY:  I NTERRUPTSCONTROLLER  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

y*  READ  TERMINAL  IDENTITY  *y 

E3  ( A3 INI  C TERMINALSLATCH] ) a 03); 

y*  WRITE  TERMINAL  NUMBER  BACK  OUT  TO  CAUSE  *y 

y*  THE  APPROPRIATE  KEYBOARD  DATA  REGISTER  *y 

y*  TO  BE  SELECTED  FOR  READING.  */ 

OUT!  C TERMINALSLATCH] ) 3 A; 

READ  THE  KEYBOARD  MATRIX  CODE  x/ 

C3 1 A3 INI  C MATRIXSLATCH] ) ) : 

y*  PROCESS  KEY  *y 

CALL  [ TERMS INPUTSCTRL] ; 

END  TERMINALS HDLR; 


I NTERRUPTSCONTROLLER:  y*  MAIN  ENTRY  INTO  INTMOD  *y 

y*  SAVE  CURRENT  VALUE  OF  STACK  POINTER  AND  *y 
y*  ALL  REGISTERS  IN  INTSSTACK  *y 

SAVHL-HL;  STACK3PSW; 

HL32+SP ; PSW3 STACK; 

SP- . INTSSTACK!  C TOP] ) ; 

STACK3 HL;  /*  PUSH  CURRENT  STACK  PTR  *y 
HL3  SAVHL ; 

STACK- HL;  y*  PUSH  ORIGINAL  CONTENTS  OF  HL  *y 
STACK- DE;  STACK3 BC;  STACK3 PSW; 

DO  WHILE  C INTSPENDINGl ; 

H3 I A3  0 ) ; L3 1 A- [LEVEL])  ; 

DO  CASE  HL; 


/** 

0 

CALL 

DUMMYSHDLR: 

/* 

1 

*/ 

CALL 

CASSETTES HDLR: 

2 

CALL 

DUMMYSHDLR; 

/% 

3 

*/ 

CALL 

DUMMYSHDLR; 

/% 

4 

*/ 

CALL 

DUMMYSHDLR; 

S'* 

3 

*/ 

CALL 

DUMMYSHDLR; 

/* 

6 

*/ 

CALL 

PR INTERS HDLR; 

7 

CALL 

DUMMYSHDLR; 

/* 

8 

*/ 

CALL 

TIMERS HDLR; 

/* 

9 

%/ 

CALL 

DUMMYSHDLR; 

/* 

10 

*/ 

CALL 

TERMINALSHDLR: 

r 


/»  11  */ 

/*  12  *✓ 

/*  13  */ 

/*  14  */ 

/*  13  */ 

/•*  14  */ 

END;  /*  CASE  */ 

END;  /*  WHILE  */ 

/*  RESTORE  ORIGINAL  VALUE  OF  STACK  POINTER  AND 
/*  ALL  REGISTERS  FROM  INT*STACK 
PS W- STACK;  BC-STACK;  DE-STACK;  HL- STACK; 
SAVHL-HL;  HL- STACK; 

SP-HL;  HL-SAVHL; 

ENABLE; 

RETURN; 

/*  END  I NTERRUPT3C0NTR0LLER  */ 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


DUMMY*  HDLR; 
DUMMY* HDLR; 
DUMMY* HDLR; 
DUMMY* HDLR; 
DUMMY* HDLR; 
DEBUG* HDLR; 


/•*«**************»************************************/' 
/■*  MONITOR  MODULE  *y 

/******************************************************/' 
/■*  */ 

/*  THE  MONITOR  MODULE  CONTAINS  THOSE  FUNCTIONS  OF  MTS  */ 
y*  WHICH  DEAL  WITH  PROCESSOR  MANAGEMENT.  SUCH  FUNC-  *y 
/*  TIONS  INCLUDE  THE  INITIAL  PROGRAM  LOAD.  SYSTEM  */ 

y*  RECOVERY,  SCHEDULING,  CPU  ALLOCATION,  AND  SWAPPING.*-' 

y*  THE  MODULE  IS  DIVIDED  INTO  THREE  BASIC  SUBMODULES.  */ 
/■*  *y 

y*  (.  I ) UTILITY  PROCEDURES  */ 

/*  THIS  SUBMODULE  CONTAINS  GENERAL  PURPOSE  */ 

y*  UTILITY  PROCEDURES  WHICH  PERFORM  OPERATIONS  *y 

y*  FREQUENTLY  REQUIRED  IN  THE  MONITOR,  INTERRUPT  *✓ 


AND  SERVICE  MODULES. 

* INDEX 

* INDEX2 

* INDEX* 

* INDEX8 

* READ®PRT®BUF 


PUT 

GET 

MOVBUF 

MINISDISK 


* INDEXB  * MINISDISK  *y 

* READSPRTSBUF  */ 

*y 

(2)  TASK  MANAGEMENT  *y 

THIS  SUBMODULE  CONTAINS  THE  SCHEDULING,  CPU  *y 

ALLOCATION.  AND  SWAPPING  PROCEDURES.  IT  ALSO  */ 
INCORPORATES  THE  MECHANISM  FOR  RECORDING  THE  *y 

SYSTEM  STATE  BLOCK  WHEN  THE  SYSTEM  STATE  *y 

CHANGES,  THUS  MAKING  RECOVERY  POSSIBLE.  *y 

CONTROL  PASSES  TO  THE  TASK  MANAGEMENT  *y 

SUBMODULE  AFTER  MTS  HAS  BEEN  INITIALIZED  BY  *y 
THE  I PL  SUBMODULE.  *y 


* MONITOR 

* BUMP®TASK 

* BOOTSTRAP 


* SWAP 

* WRITE® REC 

* RESUME® EXECUTION 


/*  (3)  INITIAL  PROGRAM  LOAD  *y 

y * THIS  SUBMODULE  CONTAINS  ALL  PROCEDURES  WHICH  *y 

y*  DEAL  WITH  THE  LOADING  PROCESS  AFTER  THE  MTS 

y*  OBJECT  MODULE  HAS  BEEN  LOADED  INTO  MEMORY  BY  *y 

y*  THE  SYCOR  SYSTEM  LOADER.  THE  PRIMARY  FUNCTION  *y 

✓*  OF  THE  IPL  SUBMODULE  IS  SYSTEM  INITIALIZATION  *y 

y * OR  RECOVERY,  AS  REQUIRED.  IN  ORDER  TO  MINI-  *y 

y*  MIZE  THE  MEMORY  REQUIREMENT  OF  THE  RESIDENT  *y 

y * MTS  CODE,  THIS  SUBMODULE  WAS  WRITTEN  AS  A *y 

y*  STANDALONE  PROGRAM  LOADED  INTO  THE  USER  SWAP  *y 

y*  AREA.  ONCE  IPL  IS  COMPLETE  THE  PROGRAM  MAY  *y 

y * BE  OVERLAYED  BY  USER  PROGRAMS.  *y 

y*  * ABORT®  IPL  * RF.AD®C  I RECTORY  *y 

y * * SEARCHED  I RECTORY  * RECOVER  *y 

y*  * INITIALIZE  * MTS® IPL  *y 

y * * REC0VER8ST ATUS® L I NE  *-' 

*y 

y * THE  MONITOR  MODULE  REQUIRES  ACCESS  TO  SEVERAL  *y 

y * FILES  WHICH  RESIDE  ON  THE  MINI-DISK  IN  SYCOR  *y 

y*  FORMAT.  THESE  FILES  AND  THEIR  FUNCTION  ARE:  *y 


. MTSSWPO , . MTSSWP 1 , . MTSSWP2 , . MTSSWP3  */ 

ASSOCIATED  WITH  EACH  OF  THE  FOUR  TERMINAL  *y 

TASKS  IS  A FILE  USED  TO  STORE  A CORE  IMAGE  *y 

OF  THE  TASK  WHEN  IT  IS  INACTIVE  OR  BLOCKED.  *y 
THIS  SWAP  IMAGE  CONSISTS  OF  A SYSTEM  AREA  */ 

WHERE  THE  ENVIRONMENT  AND  VIRTUAL  DEVICE  *y 

CONTROL  BLOCK  IS  STORED,  AND  A USER  AREA  *y 

CONTAINING  THE  USER  PROGRAM'S  MEMORY  IMAGE.  *y 
THE  MAXIMUM  SWAP  IMAGE  SIZE  IS  46K  BYTES.  *y 

THEREFORE.  EACH  SWAP  FILE  SHOULD  NORMALLY  BE  *y 
96  MINI-DISK  SECTORS  LONG.  IN  THE  EVENT  THAT  *y 
MINI-DISK  SPACE  IS  LIMITED  AND  THE  ENTIRE  40K  *y 
IS  NOT  REQUIRED  FOR  USER  PROGRAMS.  MTS  WILL  */ 
AUTOMATICALLY  ADJUST  TO  ANY  FILE  SIZE  GREATER  */ 
THAN  I6K  (32  SECTORS).  THE  FOLLOWING  SYCOR  *y 

COMMAND  MAY  BE  USED  TO  CREATE  A SWAP  FILE:  *,' 

CREATE  (FILENAME)  N=96  *' 

THE  SYCOR  SYSTEM  DOES  NOT  ALLOW  DYNAMIC  *y 


\ 

S 


/*  CHARGES  Ilf  FILE  SIZE  OR  ATTRIBUTES*  THUS,  Ilf  */ 

/*  ORDER  TO  CHARGE  THE  FILE  SIZE,  THE  FILE  MUST 

/*  FIRST  BE  DELETED  (DELETE  < FILENAME) ) ARD  THER  */ 

/*  RECREATED  WITH  THE  DESIRED  SIZE.  IF  SWAP  */ 

/*  FILES  SMALLER  THAR  48K  ARE  DESIRED,  THE  VALUE  */ 

/■*  OF  R IR  THE  CREATE  COMMAND  STRING  SHOULD  BE  */ 

/*  TWO  TIMES  THE  REQU I RED  PROGRAM  SPACE  IN  */ 

/"*  KILOBYTES.  *' 

THE  FOUR  SWAP  FILES  ARE  ONLY  REQUIRED  WHEN  x/ 
/*  MTS  IS  ACTUALLY  RUHR  INC,  OR  BETWEEN  RUNS  IF  */ 

/■*  RECOVERY  WILL  BE  REQUESTED.  *S 

/*  *S 

( 2)  . MTSCRFG 

/*  THE  VIRTUAL  FLOPPY  DISK  CONFIGURATION  FILE  */ 

s*  PROVIDES  THE  MAPPING  BETWEEN  THE  VIRTUAL  DISK  */ 

NUMBER  (0-31)  AND  THE  NAME  OF  A SYCOR  FILE  »/' 
/*  WHICH  CONTAINS  A FLOPPY  DISK  IMACE.  THE  CON-  */ 

FIGURATION  FILE  ALSO  CONTAINS  THE  PROTECTION  */ 

/*  ATTRIBUTES  OF  THE  VIRTUAL  DISKS.  A */ 

/■*  PHYSICAL  FLOPPY  DISK  HAS  A FIXED  CAPACITY  OF  */ 

/*  256 K BYTES,  WHERE  AN  MTS  VIRTUAL  FLOPPY  DISK  x/ 

/*  MAY  HAVE  ANY  CONVIENT  SIZE  UP  TO  256K  BYTES.  */ 

THE  SYSTEM  ASSUMES  THAT  THE  */ 

/*  DISK  IMAGE  IS  STORED  SEQUENTIALLY  ON  THE  */ 

/■*  MINI-DISK  STARTING  WITH  TRACK  0 SECTOR  1 AND 

/*  PROCEEDING  THROUGH  26  SECTORS  OF  TRACK  0 TO  */ 

/■*  TRACK  1 SECTOR  0,  ETC.  SPECIFYING  A VIRTUAL 

/*  DISK  FILE  SMALLER  THAN  256K  BYTES  MEANS  THAT  */ 

FEWER  THAN  77  TRACKS  WILL  BE  ADDRESSABLE.  */ 

/■*  THE  CORF IGRAT ION  FILE  CONTAINS  32  THIRTEEN 

/*  BYTE  RECORDS  IN  THE  FOLLOWING  FORMAT:  */ 

✓ x 

/*  I FILENAME  I KEY  I P I */ 

*✓- 

/*  o 7 a ii  12  */ 

/*  WHERE  "FILENAME’  IS  THE  0-0  BYTE  NAME  OF  THE  */" 

/-*  VIRTUAL  DISK  FILE  AS  IT  APPEARS  IN  THE  SYCOR  */ 

/*  DIRECTORY*  "KEY"  IS  A 0-4  BYTE  PROTECTION  */ 

/x  KEY*  AND  "P"  IS  THE  PROTECTION  ATTRIBUTE  OF  */ 

/%  THE  DISK.  I.E.  "P"  FOR  READ/WRITE  PROTECTION,  */ 

/■*  "R"  FOR  WRITE  PROTECTION  ONLY,  AND  BLANK  FOR  */ 

/*  NO  PROTECTION.  */ 

/*  THE  CONFIGURATION  FILE  WILL  BE  UPDATED  BY  THE  */ 

MTS  SYSTEM  COMMANDS  PROTECT,  UNPROTECT,  AND  */ 

/*  RESTRICT.  IN  */" 

/*  THE  EVENT  THAT  . MTSCNFG  IS  ERRONEOUSLY  *s 

/■*  DELETED.  THE  FILE  MAY  BE  RECREATED  BY  USING  */ 

/■*  THE  SYCOR  C0MMAMD8 

/*  CREATE  . MTSCNFG  N= 1 

/■*  RUN  BATCH  l'/CSST  3=  . MTSCNFG  */ 

WITH  THE  CASSETTE  LABELED  ".MTSCNFG*  */ 

/*  MOUNTED  ON  THE  CASSETTE  DRIVE. 

✓x  *s 

/*  (3)  . MTSRCVR  */ 

THE  RECOVERY  FILE  CONTAINS  A COPY  OF  THE 
/*  SYSTEM  STATE  BLOCK  AS  OF  THE  LAST  SWAP.  THE  */ 

/*  FILE  IS  ONLY  REQUIRED  WHEN  MTS  IS  ACTUALLY  */ 

RUNNING,  OR  BETWEEN  RUNS  IF  RECOVERY  WILL  BE  */ 
/*  REQUESTED.  THE  FOLLOWING  SYCOR  COMMAND  IS  */ 

/x  USED  TO  CREATE  THE  FILE* 

/*  CREATE  .MTSRCVR  N=2  */ 

✓x  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.' 


✓xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/xxxxxxxxxxxxxxxxxx  TASK  MANAGEMENT  xxxxxxxxxxxxxxxxxxx/ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
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/xxxxxxxxxxxxx  INTERMODULE  LINKAGE  MACROS  xxxxxxxxxxxxx/ 

t INT  TB  M2B  GB1  (TB:*1000H]  CM2B:=O60OH]  (GB:=0] 

C MACRO  MCP  ’ 1A00H' I 
[MACRO  MIS  * 1F00H’ I 
[ MACRO  INDEX  ’ [ HEX  M2B  + 3H] ’ 1 
[MACRO  INDEX2  ’[HEX  M2B  + 0DH] • ) 

[MACRO  INDEXB  ’[HEX  M2B  + 24H) ' I 
[ MACRO  GET  * [ HEX  M2B  + 38HI ’ I 
[MACRO  MINI0DISK  ’[HEX  M2B  ♦ 34H] * I 
[ MACRO  MTSSMSG  • C HEX  TB  + 837H3 1 1 
(MACRO  READ* TERMINAL  ’[HEX  TB  + 8DCHI ’ I 
(MACRO  GETSTERMSSTATUS  THEX  TB  + 2F9HI  ’ I 
( MACRO  LOCK  ’ M(  [ HEX  GB  3C34H] ) * I 
(MACRO  TASKSTIMER  *M([HEX  GB  + 3C33H] ) ’ I 
(MACRO  SYSSSTACXSTOP  ’[HEX  GB  + 3C6AH  + 201’] 

[ MACRO  TASK»ADDR  • [ HEX  GB  + 3E80H] 1 ] 

[ MACRO  TASK  ’ M(  [ TASKS ADDRI ) 1 1 
[MACRO  RECSFILE  ' C HEX  GB  + 3E81H] ’ ] 

[ MACRO  TCTSSTATUS  ' [ HEX  GB  + 3E85HI * ] 

[ MACRO  TCTSDM  ’ [ HEX  GB  + 3E89H] * ] 

[MACRO  TCTBSIZE  1 C HEX  GB  + 3EA9H] ' ] 

[ MACRO  TCTSBOE  • [ HEX  GB  ♦ 3EADHJ 1 ] 

[MACRO  DMTSBOE  '(HEX  GB  + 3EDDH) ’ ] 

[MACRO  VDCSDRIVE  ’(HEX  GB  + 3FEDH] ’ I 
[ MACRO  SWAPSSTACK  ’ [ HEX  GB  + 3FF6HJ ’ I 
[ MACRO  SWAPSSTACK1  ’ M(  C HEX  GB  + 3FF7H] ) ’ ] 

/*  . MDBUF  * 3C7EH  USED  IN  WRITESREC  */ 

/xxxxxxxxxxxxxxx  GENERAL  PURPOSE  MACROS  xxxxxxxxxxxxxxx/ 

( INT  MENS BASE  TOP  TIMESLICE] 

[ MEMSBASE: =4000H]  [ TIMESLICE: =41  [TOP: =20] 

[ MACRO  READ  ’ I ’ ] 

[MACRO  WRITE  ’2’] 

(MACRO  BUMP  2 •] 

[MACRO  DISKSERROR  ’(A::0)  ! ZERO’ ] 

[MACRO  HARDWARESERROR  ’8’] 

(MACRO  INPUTS WAITING  ’ 0FFH’ ] 

(MACRO  IN  ’ C READ! ’ ] 

[MACRO  OUT  ’[WRITE] ’ ] 


/xxxxxxxxxxxxxxxx  MODULE  DECLARATIONS  xxxxxxxxxxxxxxxx*/ 

DECLARE  (MONITOR,  BOOTSTRAP,  RESUMES EXECUTION)  LABEL; 
DECLARE  CONTINUE  LABEL; 

DECLARE  DIR  DATA  (0); 

DECLARE  SAVHL  DATA  (0,0); 

DECLARE  I DATA  (0); 

DECLARE  TN  DATA  ( 0)  ; 

DECLARE  RSTSFLAG  DATA  (0); 


/xxxxxxxxxxxxxxxxxxxxx  PROCEDURES  xxxxxxxxxxxxxxxxxxxx*/ 
BUMPSTASK:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  THIS  PROCEDURE  DELETES  A TASK  FROM  THE  SYSTEM  WHEN  */ 
/*  AN  IRRECOVERABLE  MINI-DISK  ERROR  OCCURS.  */ 

/*  CALLED  BY:  SWAP,  BOOTSTRAP  */ 

/xxxxxxxxxxxxxxxx# txxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
C* ( BUMP 3 ; CALL  (MTS]  ; 

E*  [ HARDWARESERROR]  ; CALL  [ MTSSMSG] ; 

END  BUMPSTASK; 

SWAP:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  THIS  PROCEDURE  SWAPS  A TERMINAL  TASK  BETWEEN  MEMORY*/ 


/x  AND  THE  APPROPRIATE  MINI-DISK  SWAP  FILE.  THE  DIR-  */ 
/x  ECTION  OF  THE  SWAT,  I.E.  IN  OR  OUT,  IS  DETERMINED  x/ 
/*  BY  THE  VALUE  OF  THE  VARIABLE  DIR.  THE  */ 
/x  PROCEDURE  ALSO  MODIFIES  TCTSSTATUS  TO  REFLECT  THE  */ 
/*  CURRENT  LOCATION  OF  THE  SWAP  IMAGE.  */ 


/* 

INPUT: 

DIR 

- DIRECTION  OF  SWAP 

*/ 

1 ■ IN 

»/ 

/* 

2 » OUT 

*/ 

/* 

CALLED 

BY: 

MONITOR 

*/ 

/*^*********************^******************************/ 

/*  SET  I TO  SWAP  IMAGE  SIZE  */ 

DE* C TCTWSIZE] ; A*  I TASK);  CALL  C INDEX)  i 
I * ( A*  M<  HL)  ) i 

/*  MODIFY  TCTSSTATUS  */ 

HL* C TCT*STATUS ]+BC; 

M<  HL) * ( A*  M<  HL)  nv  0C0H) ; 

/*  SET  DP  REGISTERS  FOR  DATA  TRANSFER  */ 


DE»CTCT*BOE] ; A*  [TASK];  CALL  C INDEX2J ; CALL  C GET! ; 
DE»C VDC*DRI VE] ; /*  SWAP  BASE  */  A* I i 
DO  WHILE  ( A:  : 0)  ! ZERO ; 

L*C  A*DIR)  ; CALL  [MINIDISK]; 

IF  I DISKS ERROR]  THEN 

DO i BUMP  TASK  OFF  SYSTEM  *✓ 

CALL  BUMPSTASK; 

IF  ( A*DIRt  A:: [IN])  ZERO  GOTO  MONITOR; 
RETURN; 

END; 

BC*BC* 1 ; DEM HL*200H+DE> ; 

IMA-I-1) : 

END;  /*  WHILE  */ 

END  SWAP; 

WRITESREC:  PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


/'X  THIS  PROCEDURE  COPIES  THE  CONTENTS  OF  THE  SYSTEM  x/ 

/*  STATE  BLOCK  TO  THE  RECOVERY  FILE.  THE  VARIABLE  */ 

RECSFILE  MUST  BE  SET  TO  THE  FILE'S  SECTOR  ADDRESS  */ 
/*  BEFORE  CALLING  WRITESREC.  */ 

/*  CALLED  BY:  BOOTSTRAP,  RESUME* EXECUTION  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/* 

HL*CREC«FILE] ; 

DE*3C7EH:  /*  ADDRESS  OF  THE  BASE  OF  SSB  */ 

C*  ( A*M(  HL) ) ; HL*  HL+ 1 ; B= ( A=M(  HL) ) ; 

L*  C WRITE]  ; CALL  [MINIDISK]; 

IF  [ DISK* ERROR]  THEN 

DO;  DISABLE;  HALT:  END; 

BC=BC+ 1 ; DE* ( HL*200H+DE) ; 

L*  C WRITE]  ; CALL  [MINIDISK]; 

IF  IDISKSERROR]  THEN 

DO;  DISABLE;  HALT;  END; 

END  WRITESREG ; 

MONITOR: 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


✓x  THIS  ROUTINE  IS  THE  TASK  MANAGER  OR  SCHEDULER  */ 

f*  WHICH  CONTROLS  THE  ALLOCATION  OF  THE  CPU  TO  COM-  */ 
/x  PETING  TERMINAL  TASKS.  IT  PERFORMS  THIS  FUNCTION  */ 
f*  BY  SEQUENTIALLY  SCANNING  THE  TCT9STATUS  BYTE  */ 

/*  ASSOCIATED  WITH  EACH  TERMINAL  LOOKING  FOR  A TASK  x/ 
/•*  REQUIRING  THE  CPU.  THE  EFFECT  PRODUCED  IS  THAT  x/ 
/*  OF  A ROUND-ROBIN  SCHEDULING  ALGORITHM.  WHILE  THE  */ 
f*  MONITOR  IS  LOOPING,  IT  INITIATES  SWAPPING  AS  */ 

/*  REQUIRED.  */ 

/*  CALLED  BY:  MTS*IPL,  TERMSBLOCK  (SVC  MOD),  SWAP,  */ 
TIMERSHDLR  ( I NT  MOD),  BOOTSTRAP,  QUIT  (SVC  MOD)  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 
SP* t SYS*STACK*TOP] ; /x  SET  STACK  POINTER  */ 

/*  LOCK  OUT  SWAPPING  */ 

C LOCK]  * ( A*  C LOCK)  \ 01H); 

INITIALIZE  RESTART  FLAG  */ 

RST*FLAG*(  A*0) : 

^x  INITIALIZE  TEMP  TASK  COUNTER  x^ 

TN*  ( A*  [ TASK]  ) ; 

LOOP:  /*  SEARCH  FOR  READY  TASK  */ 

TN* ( A* TN+ 1 , 303H) ; /x  INCREMENT  TASK  NUMBER  x/ 

/■*  TEST  FOR  INACTIVE  TASK  */ 

DE*  C TCT*STATUS ] ; CALL  [INDEX];  A*  M<  HL) ; 

IF  (A::0)  ZERO  GOTO  LOOP; 
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/*  TEST  BIT  0 - BOOTSTRAP  LOAD  */ 

IF  ( A*  > A)  CY  THEN 
DO; 

DE*[TCT#STATUSI  ; A*  [TASK];  CALL  C INDEX]  s 
IF  ( A*<  M<  HL) ) CY 

8 < B*  ( A*TN) i A*[TASK]-B>  TZERO  THEN 
DOi  DIR* ( A*  t OUT] ) t CALL  SWAP;  END; 

C TASK!  ■ ( A*TN)  ! 

GOTO  BOOTSTRAP; 

END! 

TEST  BIT  1 - MCP  */ 

IF  ( A*>  A)  CY  THEN 
DOi 

A*  C TASK!  i STACK* PSWi  /*  SAVE  OLD  TASK  NR  */ 
[ TASK!  *<  A*TN> i CALL  [MCP]; 

DE*(TCT#STATUS] ; A*  TN ; CALL  t INDEX]  ! 
M<HL)«(A»M<HL)  8 0FDH) ; 

/■*  RESET  BIT  1 
PSW- STACK;  [TASK!  = A; 

/*  RESTORE  OLD  TASK  NR  *s 
TN* ( A=TN- 1 , 303H) ; GOTO  LOOP ; 

/*  CONTINUE  WITH  TASK  AFTER  *s 
/*  SYSTEM  CALL  PROCESSED  */ 

END; 

/*  SKIP  BIT  2 - NOT  USED  */ 

A*  > A; 

SKIP  BIT  3 - NOT  USED 
A*  > A; 

/*  TEST  BIT  4 - RST  7 
IF  ( A* > A)  CY  THEN 
DO; 

STACK*  PSW; 

RST# FLAG* ( A=0FFH) ; 

RESET  TCT#STATUS  BITS  4 AND  3 
DE*(TCT»STATUS] ; A* TN ; CALL  [INDEX]; 

M(  HL)  * < A*  M(  HL)  3 OCFH) ; 

PSW* STACK; 

A*  > A;  ADJUST  ACCUMULATOR  FOR  NEXT  TEST 
GOTO  CONTINUE; 

END; 

z'*  TEST  BIT  3 - BLOCKED  FOR  TERMINAL  Iz'O  */' 

IF  ( A* > A)  CY  THEN 
DO; 

A“TN;  CALL  [ GET»TERM#STATUS ] ; 

IF  ( A: : C INPUT#VAITING] ) ZERO  THEN 
DO;  /*  NO  LONGER  BLOCKED 
IF  ( B=  ( A* TN) ; A*CTASK]-B)  !ZERO  THEN 
DO;  TASK,  TN  NOT  EQUAL 
DE* [ TCTSSTATUS ] ; A*  C TASK] ; 

CALL  [ INDEX] ; 

IF  < A=<  M<  HL) ) CY  THEN 

DO;  /■*  SWAP  OUT  OLD  IMAGE  */ 

D I R*  ( A*  C OUT]  ) ; 

CALL  SWAP; 

END; 

/*  SWAP  IN  NEW  IMAGE  */ 

[ TASK]  * ( A*TN)  ; 

DIR* ( A*  C IN] ) ; CALL  SWAP; 

END; 

CALL  C READ8TERMINALJ : 
t SWAPtSTACKl ] = A : 

/*  RESET  TCT#STATUS  BIT  3 

DE*  [ TCTSSTATUS ] ; A* [ TASK]  ; CALL  C INDEX] ; 

M(  HL]  * ( A*  M(  HL)  3 0DFH) ; 

GOTO  RESUME# EXECUT ION; 

END 

ELSE  GOTO  LOOP; 

END; 

CONTINUES 

/*  TEST  BIT  6 - RESUME  EXECUTION  - FM  DISK 
IF  ( A*  > A)  CY  THEN 
DO; 

DE* [ TCT#STATUSI ; A* [TASK];  CALL  [INDEX]; 
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IF  ( A*<M(  HL) ) CY  THEN 

DO)  DIR=  ( A*  [ OUT] ) ; CALL  SVAPi  END; 

[ TASK]  * ( A*TN)  j 

DIR*  ( A*  C INI ) ; CALL  SWAP; 

GOTO  RESUME#EXECUTION; 

END; 

/*  BIT  7 SET  - RESUME  EXECUTION  - IN  MEMORY  */ 
GOTO  RESUME#EXECUTION; 

/*  END  MONITOR  */ 

BOOTSTRAP: 

^»»»«*x*»sx***«**********x***x****xx*«xxxx**xxx«*xxxxx*/ 
/*  THIS  ROUTINE  EXAMINES  THE  DISK  MAP  FOR  THE  CURRENT  */ 
/*  TASK;  DETERMINES  THE  VIRTUAL  DISK  ATTACHED  TO  DRIVE*/ 
/*  A;  LOADS  THE  FIRST  312  BYTES  FROM  THE  DISK  INTO  */ 
/*  MEMORY  STARTING  AT  THE  BASE  OF  THE  USER  SWAP  AREA;  */ 
/*  AND  THEN  TRANSFERS  CONTROL  TO  THE  CODE  JUST  LOADED.*/ 
/«xxx*******xx«*x**x*****x*x**x*x*xx**x******«x**«*****/ 
/*  DETERMINE  DISK  NR  ATTACHED  TO  DRIVE  A */ 

DE*  I TCTBDM]  ; A*  I TASK] ; CALL  [ INDEXB] ; 

A* Ml  HL)  8 1FH; 

/*  DETERMINE  BOE  FOR  DISK  */ 

DE*  C DMT#BOE] ; CALL  C INDEX2] ; CALL  [GET]; 

/*  READ  FIRST  SECTOR  ON  VIRTUAL  DISK  */ 

DE*  C MEMSBASE]  ; L=  [ READ]  ; CALL  C MINIDISK]; 

IF  [ D I SK* ERROR]  THEN 

DO;  /*  BUMP  TASK  OFF  SYSTEM  */ 

CALL  BUMP#TASK; 

CALL  WRITE»REC; 

GOTO  MONITOR; 

END; 

/*  UPDATE  SYSTEM  STATUS  */ 

DE* [ TCT#STATUS] ; A* [TASK];  CALL  [INDEX]; 

A* M( HL)  N BOH;  /*  SET  BIT  7 */ 

MC  HL) * ( A*  A 8 OFEB) ; /*  RESET  BIT  O */ 

CALL  WRITESREC; 

[TASKOTIMER] *< A*  [ TIMESLICE] ) ; /*  RESET  TASK9T I MER  */ 

[ LOCK)  * ( A* f LOCK]  8 OFEH) ; /*  UNLOCK  SWAPPING  */ 

SP-OFEFFH; 

GOTO  [ MEMSBASE]  ; 

/*  END  BOOTSTRAP  */ 

RESUME# EXEC UT I ON : 

/«xx*************************************x****x**xx****/ 
/*  THIS  ROUTINE  TRANSFERS  CONTROL  BACK  TO  A USER  TASK  */ 
/*  WHICH  HAS  BEEN  SWAPPED  INTO  MEMORY.  */ 

/'*»X»:KXX**X*X****X********XXXX*X**XX*XX*XX***XX**XXXX:KX/ 

CALL  WRITE# REC; 

/*  UPDATE  SYSTEM  STATUS  */ 

[TASK#TI HER]* (A* [TIMESLICE] ) ; /*  RESET  TASK#TIMER  */ 

/*  RESTORE  ORIGINAL  VALUE  OF  STACK  POINTER  */ 

/*  AND  ALL  REGISTERS  FROM  SWAPSSTACK  */ 

SP* [ SWAP#STACK]  ; 

PS W- STACK;  BC*STACK;  DE* STACK;  HL* STACK; 

SAVHL=HL;  HL* STACK; 

SP*HL;  /*  RESTORE  USER  SP  */ 

STACK* PSW;  DISABLE; 

[ LOCK] * ( A*  [ LOCK]  8 OFEH);  /*  UNLOCK  SWAPPING  */ 
HL-SAVHLs  /*  RESTORE  USERS  HL  */ 

IF  (A*RST#FLAC;  A: : 6FFH)  ZERO  THEN 
DO;  /*  RST  7 REQUESTED  */ 

PSW* STACK;  ENABLE; 

CALL  3BH;  /*  RST  7 */ 

RETURN; 

END 

ELSE 

DO;  /*  NORMAL  RETURN  */ 

PSW* STACK;  ENABLE; 

RETURN;  /*  RETURNS  TO  INTERRUPT  POINT  */ 

/*  IN  USER  SWAP  IMAGE  */ 

END; 

/*  END  RESUME# EXECUT I ON  */ 
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EOF 

✓XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX,' 

/xxxxxxxxxxxxxxxxx  UTILITY  PROCEDURES  xxxxxxxxxxxxxxxxx/ 

,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/xxxxxxxxxxxxxxx  INTERNAL  MACROS  xxxxxxxxxxxxxxxxxxxxxx/ 
[ MACRO  ABNORMAL8COMP LET ION  'OFFH’I 
I MACRO  HARDWARES ERROR  ’S’] 

[MACRO  MTSSMSG  ' 1837H’ I 
[ MACRO  READ  ' 1 ’ I 
[MACRO  PRTSSEC  ' 3FE2H’ I 

INDEX:  PROCEDURE; 

✓xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


/*  GIVEN  THE  BASE  ADDRESS  OF  A BYTE  VECTOR  AND  AN  */ 
/■*  INDEX  VALUE.  THIS  PROCEDURE  CALCULATES  THE  ADDRESS  x/ 
/*  OF  THE  INDEXED  ENTRY.  */ 

/*  INPUT:  A - INDEX  VALUE  (USUALLY  TASK)  */ 

/*  DE  “ BASE  ADDRESS  OF  VECTOR  */ 

/*  OUTPUT:  BC  - INDEX  VALUE  */ 

DE  - SAME  AS  INPUT  */ 

/*  HL  - CALCULATED  ADDRESS  OF  INDEXED  ENTRY  */ 

r*  CALLED  BY:  SWAP.  MONITOR,  VAL9DISK,  CLEAR8FLAG,  */ 

/%  ATTACH.  LOGIN,  QUIT,  SIZE,  TERM8BL0CK,  */ 

/*  SELECT8DRIVE,  RECOVERSSTATUSSLINE,  */ 

/•*  PROTECT.  RESTRICT.  UNPROTECT  */" 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
B=0;  C=A; 

HL*BC+DE; 

END  INDEX; 

INDEX2:  PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/*  GIVEN  THE  BASE  ADDRESS  OF  AN  ADDRESS  VECTOR  AND  AN  */ 
/x  INDEX  VALUE.  THIS  PROCEDURE  CALCULATES  THE  ADDRESS  x/ 


/*  OF  THE  LOW  ORDER  BYTE  OF  THE  INDEXED  ENTRY.  */ 

/*  INPUT:  A - INDEX  VALUE  (USUALLY  TASK)  x/- 

/*  DE  - BASE  ADDRESS  OF  VECTOR  */ 

/*  OUTPUT:  BC  - CALCULATED  OFFSET  = 2 * INDEX  VALUE  */ 
DE  - SAME  AS  INPUT  *✓ 

/*  HL  - CACULATED  ADDRESS  OF  INDEXED  ENTRY  */ 

/*  CALLED  BY:  SWAP,  BOOTSTRAP,  SIZE,  SELECT8DRIVE  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

B*0;  Ca ( A3<  < A) ; 

HL3BC+DE; 

END  INDEX2; 

INDEX4 : PROCEDURE; 

/XXXXXXXXXXX*XXX*XXXXXXXXXX*XX*X******XXXX**X***XXX*XXX/ 


INPUT:  A - INDEX  VALUE 

/*  DE  - BASE  ADDRESS  OF  VECTOR  */ 

/*  OUTPUT:  BC  - CALCULATED  OFFSET  = 4 x INDEX  VALUE  */ 

/*  DE  - SAME  AS  INPUT  */ 

HL  - CALCULATED  ADDRESS  OF  INDEXED  ENTRY  */ 

/*  CALLED  BY:  VAL8KEY.  UPDATESCNFG8FILE,  PROTECT.  */ 

/■*  RESRTICT,  UNPROTECT  */ 


/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX^ 

B*0;  C* ( A* < < ( A=  < < A) ) ; 

HL=BC+DE; 

END  INDEX4; 

INDEX8:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/*  INPUT:  A “ INDEX  VALUE 

/x  DE  - BASE  AD HESS  OF  VECTOR  *' 
/*  OUTPUT:  BC  - CALCULATED  OFFSET  * B * INDEX  VALUE  •' 
/ x Dt,  - SATE  AS  INPUT  */ 
/*  HL  - CALCULATED  ADDRESS  OF  INDEXED  ENTRY  */ 
/*  CALLED  BY:  BOOTSTRAP.  VAL8DRIVE.  CLEARXDM.  ATTACH.  */ 
/*  SELECT8DRI VE.  REC0VER8STATUS8L I NE.  */ 
/x  UPDATE8CNFG8FILE  «✓ 


/*xxxxxxxxxxxxxx*xxxx**xxxx*xx***x**xx*x********x*.**xx*. 


I 
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B=0;  C* ( A*<  < ( A=<  < ( A=<  < A) ) ) 
HL»BC*DE; 

END  INDEX8; 


PUT:  PROCEDURE! 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 


/*  STORE  A TWO  BYTE  ADDRESS  IN  A SPECIFIED  VECTOR.  x/ 
sx  INPUT:  DE  - ADDRESS  TO  BE  STORED  */ 
/*  HL  - BASE  ADDRESS  OF  VECTOR  x/ 
/■*  OUTPUT:  BC  - UNCHANGED  x/ 
s*  DE  - SAME  AS  INPUT  x/ 
sx  HL  - BASE  ADDRESS  + l x/ 
sx  CALLED  BY:  RECOVER,  INITIALIZE  xs 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
M(  HL)  * E:  HL*  HL+  1 i M(HL)=D; 

END  PUT; 

GET:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXs' 

/x  FETCH  A TWO  BYTE  ADDRESS  FROM  A SPECIFIED  VECTOR.  x/ 


/x  INPUT:  HL  - BASE  ADDRESS  OF  VECTOR  x/ 
sx  OUTPUT:  BC  - ADDRESS  FETCHED  x/ 
sx  DE  - .ADDRESS  FETCHED  xs 
/x  HL  - BASE  ADDRESS  ♦ 1 */ 
s x CALLED  BY:  SWAP , BOOTSTRAP,  SIZE.  SELECTSDRIVE  xs 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

E*M(  HL) i HL*FL+1;  D=  MC  HL) ; BC=DE; 

END  GET: 

MOVBUF : PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 
/X  THIS  IS  A GENERAL  PURPOSE  UTILITY  PROCEDURE  WHICH  xs 


sx  MOVES  A SPECIFIED  NUMBER  OF  BYTES  FROM  A SOURCE  x/ 
'*  BUFFER  TO  A DESTINATION  BUFFER.  xs 
sx  INPUT:  BC  - NUMBER  OF  BYTES  TO  BE  MOVED  xs 
sx  DE  - BASE  ADDRESS  OF  SOURCE  BUFFER  xs 
sx  HL  - BASE  ADDRESS  OF  DESTINATION  BUFFER  xs 
/x  CALLED  BY:  MTSSIPL,  ABORTS  I PL.  SEARCHSD IRECTORY,  x/ 
sx  LOGIN,  READ®FLOPPY,  WRITESFLOPPY.  x^ 
/x  INITIALIZE.  TIMERSHDLR  ( INT  MOD>  x/ 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/' 

REPEAT; 

M<  HL)  * ( A*  M(  DE)  ) : 

HL*  HL+ 1 ; DE*  DE+  1 ; 

UNTIL  ( BC* BC- 1 ; A=0;  A::C)  ZERO  3 (A::B)  ZERO: 

END  MOVBUF; 

| 

MINIDISK:  PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


sx  THIS  PROCEDURE  TRANSFERS  A SPECIFIED  312  BYTE  xs 
/x  BUFFER  BETWEEN  MEMORY  AND  THE  MINI-DISK.  THE  DIR-  x/ 
s x ECTION  OF  THE  TRANSFER  IS  INDICATED  BY  THE  OP  CODE. x/ 
/x  ERROR  PROCESSING  IS  LIMITED  TO  CHECKING  THE  STATUS  xs 
s x RETURNED  BY  THE  MIN  I -DISK  CONTROLLER  FOR  ’NORMAL  xs 
s x COMPLETION. ’ WHEN  ANY  OTHER  STATUS  IS  RETURNED  THE  xs 
/x  ROUTINE  DISPLAYS  THE  MESSAGE  ’HARDWARE  ERROR’  ON  x/ 
/x  THE  TERMINAL  CURRENTLY  ALLOCATED  THE  CPU  AND  xs 
/x  ABORTS  THE  OPERATION.  xs 
sx  INPUT:  BC  - MINI-DISK  SECTOR  NUMBER  xs 
/x  DE  - DMA  BUFFER  BASE  ADDRESS  xs 
/x  L - OPERATION  CODE-’  xs 
SX  1 * READ  x/ 
/x  2 * WRITE  x/ 
S x 3 * WRITE/VERIFY  x/ 
/x  OUTPUT:  A - RETURNS  00H  IF  COMPLETION  NORMAL,  x/ 
/x  OTHERWISE  RETURNS  FFH  xs 
/x  BC  - SAME  AS  INPUT  x/ 
/x  DE  - SAME  AS  INPUT  x/ 
sx  CALLED  BY:  READ0D I RECTORY,  RECOVER.  INITIALIZE.  x/ 
/x  WRITE0REC , SWAP . BOOTSTRAP , READ0BUF.  x/ 
/X  WRITESBUF.  READ® P RTS BUF , WR I TESPRTSBUF  xs 


^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/ 
sx  SET  DCB  CHECKSUM  IN  LOCN  4CH  xs 
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M< 4CH) * ( A*  »n\B , nnC , nnD , nnE , nnL) ; 

y*  SET  SECTOR  NUMBER  IN  DISK  CONTROL  BLOCK  */ 

M(  49H) * < A*  B) ; M(44H>»( A»C> ; 

y*  DEBUG  - TO  ENSURE  SYCOR  SYSTEM  IS  NEVER  OVERWRITTEN  */ 
STACK- HL;  HL-0B7H; 

L-(A=L-C>;  HMA-H-D); 

IF  'CY  THEN  CALL  10H; 

HL= STACK; 

y*  SET  DMA  BUFFER  ADDRESS  IN  DISK  CONTROL  BLOCK  */" 

M(43H)  = < A-D)  ; M(42H)  = < A=E>  ; 
y*  INITIATE  OPERATION  */ 

M(  40HJ  = ( A-  L>  ; 

y*  WAIT  UNTIL  OPERATION  COMPLETE  */ 

REPEAT; 

A-  M(  4 1 H)  ; 

UNTIL  (A::0)  TZERO; 

y*  TEST  A FOR  COMPLETION  STATUS  *y 

IF  < M(  4 1 H) - ( A- A- 1 ) ) ZERO  RETURN;  NORMAL  COMPLETION  */ 

M(41H)-(A»0>  ; 

E- I HARDWARE* ERROR!  ; 

CALL  C MTS* MSG] ; 

A- I ABNORMALSCOMPLETION] ; 

END  MIN I*D ISK; 

READ*PRT*BUF : PROCEDURE; 

/'****»*****»*********************************:***:*****:*/' 

/*  THIS  ROUTINE  IS  CALLED  INITIALLY  BY  WRITE*PRINTER  */ 
y*  IN  ORDER  TO  FILL  THE  PRINT  BUFFER  WITH  THE  FIRST  *y 
y*  SECTOR  OF  THE  MTSPRT  FILE  PRIOR  TO  OUTPUT  OF  THE  *y 
y*  FIRST  CHARACTER  TO  THE  PRINTER.  SUBSEQUENT  CALLS  *y 
y*  ARE  MADE  BY  THE  PRINTER* HDLR  IN  THE  INTERRUPT*  *y 
y*  CONTROLLER  UNTIL  THE  END  OF  FILE  IS  ENCOUNTERED  *y 
y*  CALLED  BY:  WRITE»PR INTER.  PRINTER* HDLR,  RECOVER  */ 
/*****************:***»*******************:**********:*:**✓' 

HL-(  PRT9SEC] ; C-M(HL);  HL= HL+ 1 ; 

B-M(HL);  y*  BC  HAS  CURRENT  MTSPRT  SECTOR  * *y 
DE-I00H;  L=  C READ I ; 

CALL  MINI9DISK; 

BC-BC+l;  HL- [ PRT*SEC ] ; 

M<HL)-C;  HL-  HL+ I ; M(HL)=B; 

END  READ*PRT*BUF ; 

EOF 

/S*****************************************************,/ 

/-****»**********»  INITIAL  PROGRAM  LOAD  ****************/ 

/**»t********  i***:*********:*:**:**:********:***:*:*****:*:**;******,' 


/*************  INTERMODULE  LINKAGE  MACROS  ************* y 
C I NT  MB  M2B  SB  TB] 

[ MB: - 0300H]  (M2B:=0600H]  [SB:-1F00H]  [TB:=1000H] 

[MACRO  MONITOR  ’[HEX  MB  + 0AAH] ’ I 
[ MACRO  MOVBUF  ’ [ HEX  MSB  + 4 1HI  ’ ] 

[MACRO  PUT  ’[HEX  M2B  + 31H]’] 

(MACRO  MINI9DISK  ’[HEX  MSB  + 34H] ’ ] 

C MACRO  INDEX  ’ [ HEX  MSB  + 3H] ’ I 
[MACRO  INDEXB  ’(HEX  M2B  + 24H] ’ I 
[ MACRO  R£AD*PRT*BUF  ’ [ HEX  M2B  + 9 EH]  ’ ] 

[ MACRO  MTS  ’ C HEX  SB  + 0]  ’ I 
[ MACRO  MTS* MSG  ’ [ HEX  TB  + 837H] ’ ] 

[MACRO  CLEAR*STATUS»L I NE  [HEX  TB  + 827HI ’ ] 

[MACRO  TERMINAL»STATUS  ’[HEX  TB  + 8D2H] ’ ] 

[MACRO  READ* TERM I NAL  ’ C HEX  TB  ♦ 8DCH] ’ ] 

[MACRO  WRITE*TERMINAL  ’ [ HEX  TB  + 93CH]  ’ ] 

[MACRO  SIZE»MSG  ’[HEX  TB  + 864H] ’ ] 

[ MACRO  STATUS* MSG  ’ t HEX  TB  + 88CH] ’ ] 

[MACRO  BUF*PTR  ’3C40H’] 

(MACRO  TASK  ’3E80H’] 

(MACRO  REC*F1LE  ’3E8IH’] 

[ MACRO  TCT*STATUS  ’ 3E8SH’ ] 

( MACRO  TCT*S IZE  ’ 3EA9H’ ] 

[MACRO  TCT*EOE  ’ 3EB3H’ I 
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C MACRO  TCT*DM  1 3E89H1 I 
[MACHO  CNFG*F ILE  ’3E03H 'I 
[MACRO  DMT*FLAG  ’ 3EBDH* ] 

[MACRO  DMT»BOE  ' 3EDDH" ] 

[MACRO  DMISEOE  ’ 3F1DH’ 3 
[MACRO  DMT# KEY  ’ 3F5DH’ 1 
[MACRO  PRT*CNTRL  ’ 3FDDH’ ] 

[MACRO  PRTSBOE  ’ 3FDEH’ ] 

(MACRO  PRT*EOE  ' 3FE0H’ ] 

(MACRO  PRT»SEC  ,3FE2H,3 
[MACRO  SYSSSTACK  ’ 3C6AH’ ] 

/*  . MDBUF  = 3C7EH  - USED  IN  RECOVER  x/ 


/xxxxxxxxxxxxxxx  GENERAL  PURPOSE  MACROS  ***************/ 

[ I Nr  IPL*OFFSET] 

( IJ  L*OFFSET:  *33C7HI  /*  ADDR  OF  LABEL  SHIFT  1200H  x/ 

/*::**************  MODULE  DECLARATIONS  ^**»****»**»:******/' 

DECLARE  <I,J)  BYTE; 

DECLARE  MAX(2)  BYTE; 

/x  ADDRESS  OF  LAST  ENTRY  + I IN  DIRECTORY  IMAGE  */ 
DECLARE  RECSNAME(9)  BYTE  INITIAL  ( ' . MTSRCVR8 ’ ) ; 

/i*******************  PROCEDURES  xxxxxxxxxxxxxxxxxxxxxxx/ 

ABORT* IPL:  PROCEDURE( MSG) ; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/*  WHEREVER  A CONDITION  OCCURS  DURING  THE  IPL  PROCESS  x/ 
/x  WHICH  PREVENTS  NORMAL  COMPLETION  OF  THE  IPL  THIS  *s 


/*  PROCEDURE  IS  CALLED  TO  TERMINATE  EXECUTION  AND  x/ 
/*  DISPLAY  AN  ERROR  MESSAGE  AT  TERMINAL  0.  x/ 
/x  INPUT:  MSG  - BASE  ADDRESS  OF  ERROR  MESSAGE  x/ 
/*  TERMINATED  BY  ' S • x/ 
/*  CALLED  BY:  READ*D I RECTORY,  INITIALIZE,  RECOVER,  x/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

DECLARE  ABORTS MSG  DATA  ( 1 IPL  ABORTED  - ’) ; 
sx  DISPLAY  ‘ IPL  ABORTED-  AT  rERMINAL  0 x/ 

BC=14;  DE= . ABORTSMSG;  HL=O700H: 

CALL  [ MOVBUF) ; 

HL=MSG;  A= ’ # ’ ; 

DO  C=0  BY  C=C+1  WHILE  (A: : MC  HL) ) 'ZERO; 

HL=HL+1;  /*  COUNT  CHARS  IN  MSG  */ 

END: 

B=0;  DE= ( HL=MSG) ; HL=070EH; 

CALL  (MOVBUFI;  /*  DISPLAY  MSG  AT  TERMINAL  0 x/ 
DISABLE;  HALT; 

END  ABORTS IPL; 


READ*D I RECTORY:  PROCEDURE; 

/*********************************:):*******:***********X**/- 

/x  DURING  THE  INITIALIZATION  PROCESS  IT  IS  NECESSARY  */ 

/-*  TO  DETERMINE  THE  SECTOR  NUMBERS  OF  SEVERAL  SYSTEM  xs 
/x  FILES  WHICH  RESIDE  ON  THE  MINI-DISK  IN  SYCOR  FORMAT. x/ 
sx  MULTIPLE  DIRECTORY  SEARCHES  COULD  LEAD  TO  REPEATEDLY*^ 

/*  READING  THE  SAME  BLOCK  OF  MINI-DISK  SECTORS.  TO  x/ 

/ x ELIMINATE  MOST  OF  THESE  UNNECESSARY  READ  OPERATIONS  *✓ 

/x  THIS  PROCEDURE  READS  THE  ENTIRE  SYCOR  DIRECTORY  x/ 

/*  INTO  MEMORY  AT  ONE  TIME,  THUS  REDUCING  THE  OVERHEAD  x/ 

/ x INVOLVED  IN  MULTIPLE  SEARCHES.  x/ 

/ X CALLED  BY:  MTS* IPL  */ 

^Mc*«vc*««*4cxx**:*x»4c*********^c***«*yc******^;*^:**4:*******«**/' 

[ INT  SYCOR*DIR*BASEI  /*  SYCOR  DIRECTORY  BASE  */ 

[ SYCOR*DIR*BASE: =20HI  ✓ * SECTOR  NUMBER  x/ 

DECLARE  READ*MSG(  22)  BYTE  INITIAL  ( ' CANNOT  READ  DIRECTORY*1); 
/x  SET  UP  REGISTERS  FOR  DISK  READ  x/ 

BC=  [ HEX  SYCORSD IRS BASE] ; 

DE*3200H;  /’X  300OH  f 200H  = DIRECTORY  BASE  ADDRESS  xs 

/x  read  NUMBER  OF  SECTORS  INDICATED  */ 

/*  IN  DIRECTORY  HEADER  RECORD  xs 

REPEAT: 

L= 1 ; /x  READ  */  CALL  [MINISDISKI; 
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IF  (A::0>  I ZERO  /*  DISKERROR  */ 

CALL  ABORT* I PL(  . READ* MSG) i 
DE*  < HL" 200H+DE) ; BC»BC+ 1 ; 

URTIL  (A»M(320AH);  DIR  BASE  + 0AH  *s  A::C)  CY; 

/*  CALCULATE  ADDRESS  OF  LAST  ENTRY  + l IN  I MACE  x/ 

B-  [ HEX  SYCOR*D IR»BASE- 1 ] ; 

A" A-B;  /*  A * NR  SECTORS  IN  DIRECTORY  */ 

D"  ( A*  < < A)  ; 

E*0;  /•*  DE  * NR  SECTORS  * 312  *s 

HL-3201H;  /*  DIR  BASE  + 1 */  HL* HL+DE; 

MAX*  HL; 

END  READ*D I RECTORY; 

SEARCHSD I RECTORY : PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx/ 
/*  GIVEN  THE  BASE  ADDRESS  OF  A VECTOR  CONTAINING  THE  */ 
/■«  NAME  OF  A FILE  IN  SYCOR  FORMAT,  THIS  ROUTINE  WILL  */ 


/*  SEARCH  THE  DIRECTORY  IMAGE  READ  INTO  MEMORY  BY  */ 
/*  READ*D I RECTORY.  IF  THE  FILE  ENTRY  IS  FOUND,  THE  x/ 
/■*  BOE  AND  EOE  VALUES  ARE  RETURNED. 

/*  INPUT:  DE  - BASE  ADDRESS  OF  FILENAME  VECTOR  */ 
/■*  ASSUMED  TO  BE  8 BYTES  LONG  x/ 
/*  OUTPUT:  BC  - BOE  OR  FFFFH  IF  FILE  NOT  FOUND  */ 
/*  DE  - EOE  OR  FFFFH  IF  FILE  NOT  FOUND  */ 
/*  CALLED  BY:  INITIALIZE.  RECOVER  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

DECLARE  LOOP  LABEL; 

/*  MOVE  FILENAME  TO  LAST  ENTRY  + 1 */ 

BC=8;  HL" MAX;  CALL  [MOVBUF1; 

DE*3241H;  /*  DIR  BASE  + 41H  - ADDRESS  OF  FIRST  ENTRY  */■ 

LOOP:  /*  ADVANCE  TO  NEXT  ENTRY 

STACK" DEj  HL=MAX;  B"8; 

REPEAT;  COMPARE  CHAR  BY  CHAR  */ 

IF  ( A=M(  DE) ; A: : M( HL) ) ZERO 
N (IF  (A: : 0)  ZERO  8 ( A" M(  HL) -20H)  ZERO 
THEN  CY" 1 ELSE  CY=0)  CY 
THEN  /'X  CHAR  MATCH 
DO; 

DE" DE+ 1 ; HL=HL+ 1 ; 

END 

ELSE  /*  NON- MATCH  */ 

DO;  DE" STACK; 

DE*  ( HL" 40H+DE) ; 

GOTO  LOOP; 

END; 

UNTIL  ( B=  B- 1 ) ZERO; 

SP=  < HL=2+SP) ; /*  CLEAR  STACK  */ 

/■*  FALLING  THRU  LOOP  MEANS  NAMES  MATCH,  x/ 

/*  MUST  TEST  FOR  SUCCESS  OR  FAILURE  OF  SEARCH  */ 

IF  ( A" MAX(  1 ) ; A : : D)  CY  s*  X::Y=CY  =>  X<  Y */ 

\( IF  ZERO  8 ( A=MAX( 0) ; A::E)  CY  THEN  CY" 1 ELSE  CY=0) 

CY  THEN 

DO;  /*■  SEARCH  FAILED  */ 

BC=0FFFFH;  DE" BC ; 

END 

ELSE  DO:  /*  SEARCH  SUCCESSFUL  */ 

HL=3+DE; 

C=M(  HL) ; HL" HL+ 1 ; 

B=  M(  HL) ; HL=HL+ 1 ; 

E=M(  HL) ; HL=HL+ 1 ; 

D»M(HL)  ; 

END; 

END  SEARCHSD I RECTORY ; 

RECOVER*STATUS»LINE:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/■*  ROUTINE  TO  BUILD  AND  DISPLAY  THE  STATUS  LINE  WHEN 
/*  A RECOVERY  IS  PERFORMED.  THIS  ROUTINE  DISPLAYS  ALL  */ 
ACTIVE  DRIVES  AND  ASSOCIATED  DISKS  AND  DISPLAYS  x/ 

/x  SWAP  IMAGE  SIZE  FOR  EACH  TASK.  */ 

CALLED  BY:  RECOVER  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX,' 

DECLARE  S A VESTAS K BYTE; 
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HL-  C TASE  ; 

SAVESTASK=<A*M(HL>>  ; /*  SAVE  CURRENT  TASK  NUMBER  */ 

I * ( A* 0 ) ; /*  INITIALIZE  TASK  COUNTER  */ 

/x  CHECK  TCTSSTATUS  FOR  ACTIVE  TASK  */ 

REPEAT;  /*  FOR  ALL  4 TASKS  */ 

DE*  C TCTSSTATUS ] ; CALL  C INDEX] ; 

IF  <A=M(HL);  A::0>  TZERO  THEN  /X  TASK  ACTIVE  */ 
DO; 

HL*CTASK]  ; M( HL) * ( A*  I ) ; /*  SET  TASK  NUMBER  */ 
DE*  I TCTSDM] ; CALL  [ INDEX8] ; 

J*(A*0>;  /*  INITIALIZE  DRIVE  COUNTER 

REPEAT;  FOR  ALL  8 DRIVES  */ 

IF  ( A=<  M( HL) ) CY  THEN 
DO;  /*  DRIVE  IN  USE 

B=(A=J);  C=(A=M(HL)  3 1FH)  ; 

IF  ( A* M<  HL)  3 40H)  'ZERO 
THEN  A=72H  ELSE  A*’  ’; 

STACK- HL; 

/*  DISPLAY  ACTIVE  DRIVE  AND  DISK  */- 
CALL  [STATUSSMSGI ; 

HL* STACK; 

END; 

UNTIL  C HL=HL+ 1 ; J=(A=J+1>;  A:  =8)  ZERO; 

/*  DISPLAY  SIZE  MESSAGE  */- 
DE'ITCTSSIZE] ; A* I ; CALL  C INDEX] ; 

CY=0;  A*  > M<  HL) ; CALL  ISIZESMSG]; 

END; 

UNTIL  ( I ■ ( A“ I + 1 ) ; A::4)  ZERO; 

/*  RESTORE  CURRENT  TASK  NUMBER  */ 

HL* C TASK] ; M(  HL)  = ( A=SAVESTASK) ; 

END  RECOVERSSTATUSSLINE; 

RECOVER:  PROCEDURE; 

/•XXXXXXXXXXXXXXXXXXXXXXXXXXX*****:******:*::***************/' 


/*  MTS  HAS  BEEN  DESIGNED  SO  THAT  THE  SYSTEM  STATE  AT  */” 
ANY  INSTANT  IS  DEFINED  BY  A COMPACT,  CONTIGUOUS 
GROUP  OF  BYTES  KNOWN  AS  THE  SYSTEM  STATE  BLOCK.  */ 
/x  EACH  TIME  THAT  SWAPPING  OCCURS  THE  SSB  IS  WHITTEN 
/x  TO  THE  MINI-DISK  FILE  .MTSRCVR.  IF  THE  TASK  JUST  xs 
/x  SWAPPED  IN  CAUSES  A SYSTEM  CRASH.  RECOVERY  IS 
/x  ACCOMPLISHED  BY  REBOOTING  MTS  AND  ANSWERING  ’ Y*  TO  x/ 
/*  THE  RECOVERY  QUERY.  MTS  WILL  READ  . MTSRCVR  BACK  x/ 
/x  INTO  THE  SSB,  DELETE  THE  OFFENDING  TASK,  AND  x/ 

/%  CONTINUE  WITH  THE  NEXT  READY  TASK.  */ 

/x  NOTE:  THIS  PROCEDURE  USES  THE  FACT  THAT  THE  BOE  */ 

/x  AND  EOE  VALUES  RETURNED  BY  SEARCHSD I RECTORY  xs 

/*  ARE  EQUAL  FOR  A SINGLE-SECTOR  FILE.  x/ 

/x  CALLED  BY:  MTSSIPL  xs 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 

sx  FIND  MINI-DISK  SECTOR  ADDRESS  OF  .MTSRCVR  xs 
DE* . RECSNAME ; 

CALL  SEARCHSD I RECTORY; 

IF  ( A=B;  A::0FFH)  ZERO  CALL  ABORTS  I PL(  . RECSNAME) ; 

/*  READ  .MTSRCVR  INTO  SSB  */ 

DE*  BC ; '*  MOVE  BOE  TO  DE  */ 

HL* C RECSFILE] ; CALL  C PUT] ; 

DE* 3C7EH;  sx  ADDRESS  OF  SSB  - . MDBUF  xs 
DISABLE; 

I=( A=0) ; 

REPEAT; 

L*  1 ; sx  READ  */  CALL  CMINISDISK]; 

IF  (A: : 0)  !ZERO  /*  DISK  ERROR 
CALL  ABORTS  I PL(  . RECSNAME) ; 

BC*  BC+ 1 ; DE*(HL*200H+DE) ; 

UNTIL  (I*(A*I+1);  A::2)  ZERO; 

IF  ( A*M( C PRTSCNTOL] ) ; A*<A;  A*<  A)  CY  THEN 
DO;  sx  COMPLETE  PRINTING  TASK  xs 
HL* I PRTSSEC1 ; DE* I PRT9BOE] ; 

M(  HL)  “ ( A*  MC  DE)  ) : HL*  HL+  1 ; DE*  DE+  1 ; 

M<  HL)  * ( A*M(  DE)  ) ; 

sx  SET  BUFFER  PTR  TO  100H  xs 

HL*  I BUFSPTRI ; M(HL)=0:  HL*  HL+ 1 ; 

M(  HL)*  1 ; 
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CALL  C READSPRTSBUF] ; 

OUT(BAH) *( A*0> ; 

END; 

ENABLE; 

/*  DELETE  TASK  CAUSING  CRASH  */ 

C*-2;  /*  BUMP  */ 

CALL  CUTS] ; 

E*9;  /*  TASK  DELETED  */ 

CALL  [ MTSSMSG] ; 

CALL  RECOVERSSTATUSSLINE; 

END  RECOVER; 

INITIALIZE:  PROCEDURE; 

^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/x  THE  SYSTEM  STATE  BLOCK  CONSISTS  OF  THREE  SETS  OF 
/*  VARIABLES:  SYSTEM  CONTROL,  TASK  CONTROL  TABLE.  AND  */ 
/■»  THE  DISK  MAP  TABLE.  THE  OBJECT  MODULE  GENERATED  BY 
/*  THE  ML80  COMPILER  CONTAINS  INITIAL  VALUES  FOR  */ 

SYSTEM  CONTROL  VARIABLES  AND  MOST  OF  THE  TCT.  IN  *✓ 
/x  ORDER  TO  INITIALIZE  THE  REST  OF  THE  TCT  IT  IS  x/ 

✓x  NECESSARY  TO  SEARCH  THE  SYCOR  DIRECTORY  IMAGE  */ 

/-x  COPIED  INTO  MEMORY  BY  READS  D I RECTORY  FOR  BOE  AND  *s 

/*  EOE  VALUES  FOR  THE  RECOVERY  FILE  AND  ALL  FOUR  SWAP  */ 

/■*  FILES.  TO  INITIALIZE  THE  DMT  THE  VIRTUAL  DISK  x/ 

/x  CONFIGURATION  FILE.  . MTSCNFG,  MUST  BE  READ  INTO  */ 
/*  MEMORY  AND  BOE  AND  EOE  VALUES  FOR  THE  VIRTUAL  DISK  */ 
/*  FILES  EXTRACTED  FROM  THE  SYCOR  DIRECTORY  IMAGE.  */ 
/■*  THE  PROTECTION  ATTRIBUTES  FOR  EACH  VIRTUAL  DISK 
/x  ART,  ALSO  COPIED  INTO  THE  DMT  FROM  .MTSCNFG.  */ 

/*  NOTE:  THIS  PROCEDURE  USES  THE  FACT  THAT  THE  BOE  */ 
/■*  AND  EOE  VALUES  RETURNED  BY  SEARCHED  I RECTORY  */ 

/*  ARE  EQUAL  FOR  A SINGLE-SECTOR  FILE.  */ 

/-x  CALLED  BY:  ITTSSIPL  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

Declare  entrysbase(2>  byte; 

DECLARE  CNFGSNAME!  9 ) BYTE  INITIAL  ( • . MTSCNFCS ' ) ; 
DECLARE  SWAPSNAME(9)  BYTE  INITTAL  ( ' . MTSSWP0S' ) ; 
DECLARE  SYSDISKI 9)  BYTE  INITIAL  (’SYS  DISKS’); 

DECLARE  PRTSF ILESNAMEC  9)  BYTE  INITIAL  ( ’ . MTSPRT  S’); 
/*  SET  UP  RECOVERY  FILE  x/ 

DE* . RECSNAME ; CALL  SEARCHSD I RECTORY; 

IF  ( A*  B ; A::«FFH)  ZERO  CALL  ABORTS  I PL(  . RECSNAME) ; 

E*< A*E-C> ; 

IF  < E*  E-  1 ) TZERO  THEN  CALL  ABORTS l PL(  . RECSNAME)  ; 

DE*  BC ; /x  SET  UP  TO  STORE  BOE 
HL* C RECSF ILEJ ; CALL  C PUT! ; 

/x  SET  UP  TASK  CONTROL  BLOCK  IN  SSB  */ 
l " < A*4) ; STACK*  ( HL*CTCTSEOEI ) ; 

REPEAT; 

DE* .SWAPSNAME;  CALL  SEARCHSD [RECTORY; 

IF  ( A*B;  A: : 0FFH)  ZERO 

CALL  ABORTS  I PL(  . SWAPSNAME) ; 

CHECK  THAT  SWAP  FILE  AT  LEAST  16K  */ 

L*  ( A*  ! C , I ) ; H=<  .4*  !B,++0)  ; 

HL= HL+DE; 

IF  < A* L ; A:  : 3 1 ) CY  CALL  .ABORTS  I PL(  . SWAPSNAME)  ; 

HL* STACK;  CALL  [PUT]; 

DE*  BC ; BC*-9; 

HL*HL+BC;  CALL  [PUT]; 

BC*9;  STACK*  ( HL= HL+BC) ; 

SWAPSNAME(7) *(  A*SW.4PSNAME(  7)  + I > ; 

UNTIL  ( I*< A* I-I) ) ZERO; 

SP* ( HL*2+SP) ; s*  CLEAR  STACK  */ 

DE* . PRTSF I LESNAME ; CALL  SEARCHSD I RECTORY; 

IF  ( A*  B ; A:  : 0FFH)  ZERO  CALL  ABORTS  I PL(  . PRTSF I LESNAME) 
HL* [ PRTSEOE] ; CALL  [ PUT] ; 

DE* BC ; HL* [ PRTSBOE] ; CALL  [PUT]; 

/-x  SET  UP  DISK  MAP  TABLE  IN  SSB  x/ 

DE* . CNFGSNAME;  CALL  SEARCHSD I RECTORY; 

IF  ( A*  B;  A: : 0FFH)  ZERO  CALL  ABORTS  I PL(  . CNFGSNAME) ; 

HL* [ CNFGSF ILEl ; CALL  [PUT]; 

/*  READ  CONF  I GURAT I ON  FILE  INTO  MEMORY  X/- 
DE* 3O00H;  /*  ADDRESS  FOR  BASE  OF  MEMORY  */ 


f 

! i 


I 


L3  1 ; /*  READ  */  CALL  C MINUDISKI  ; 

ir  <At:0>  TZERO  y*  DISK  ERROR  */ 

CALL  ABORTS IPL(  . CNFG*NAME) ; 

HL35000H;  /*  MEMORY  BASE  ADDRESS  */ 

IF  <A«M<HL);  A- : 2EH)  TZERO  THEN 

DO)  /*  FIRST  BYTE  OF  . MTSCNFG  NOT  */ 

y*  ELIMINATE  SYCOR  OVERHEAD  FROM  . OTSCNFC  *y 
/*  SYCOR  OVERHEAD  (OH)  OF  THE  FORM:  */ 

S*  2 BYTES  OH,  100H  BYTES  DATA  *s 

/*  4 BYTES  OH,  0A0H  BYTES  DATA  */ 

DE*3002H;  /*  ADDRESS  OF  SOURCE  *y 

BC3 100H;  y*  NUMBER  OF  BYTES  TO  BE  MOVED 
CALL  CMOVBUF] ; 

DE»3106H;  /*  ADDRESS  OF  SOURCE  */ 

HL=3100H;  y*  ADDRESS  OF  DESTINATION  */ 
BC30AOH;  NUMBER  OF  BYTES  TO  BE  MOVED  *y 
CALL  C MOVBUF] ; 

y*  UPDATE  CONFIGURATION  FILE  *y 
DE3  3000H;  HL3[CNFG*FILE] ; 

C3  M(  HL) ; HL3  HL+ 1 ; B3M( HL) ; 

L32;  y*  WRITE  *y  CALL  CMINISDISKl! 

IF  (A: : 0)  TZERO  y*  DISK  ERROR  *y 
CALL  ABORTS  I PL( .CNFGSNAME) ; 

END; 

I * < A* 0 ) j ENTRY*BASE3(  HL=( DE33000H) ) ; 

REPEAT;  y*  STEP  THRU  CONFIGURATION  FILE  *y 
CALL  SEARCHSD I RECTORY; 

IF  ( A=B;  A: : 0FFH)  TZERO  THEN 

DO;  y*  VIRTUAL  DISK  ( I)  EXISTS  * y 
STACK3  BC ; B30;  C3(A=<<I); 

HL=[DMTSEOE]+BCj  CALL  [PUT]; 

DE3 STACK;  HL3 t DMT3BOE3 +BC;  CALL  [PUT]; 

BC=B;  DE=  ( HL=  ENTRY* BASE+BC) ; 

B=0;  C3 ( A3<  < ( A=<  < I) ) ; 

HL= [ DMTSKEY] +BC ; 

DO  B30  BY  B=B+ 1 WHILE  (A=B-4)  TZERO: 

M(HL)=(  A=M(  DE)  ) ; 

DE3  DE+ 1 HL3HL+-1  ; 

END; 

B=0;  C3  ( A3 I ) ; 

HL3 C DMTSFLAG] + BC ; 

IF  (A«M(DE);  A::(B3,Rf )>  ZERO  THEN 
M(HL)=0DH 
ELSE  DO; 

IF  (A: :(B3'P’))  ZERO  THEN  M(HL)303H 
ELSE  M(HL)=01H; 

END; 

END; 

DE=(HL3ENTRYSBASE+(BC3 13) ) ; 

ENTRYSBASE3  HL ; 

UNTIL  ( 1 3 ( A3  I + 1 ) ; A::32)  ZERO; 
y*  CHECK  THAT  DISK  0 EXISTS  *y 
HL*  t DITTSFLAGl  ; 

IF  (A3M<HL)  8 01)  ZERO  CALL  ABORTSIPL( .SYSDISK) ; 
END  INITIALIZE; 


MTSSIPL: 

/**********************************X***K***X*********S*/ 

y*  THIS  ROUTINE  IS  THE  INITIAL  ENTRY  POINT  INTO  MTS.  *y 
y * THE  SYCOR  440  LOADER  TRANSFERS  CONTROL  HERE  AFTER  */ 
y*  THE  SYSTEM  OBJECT  MODULE  HAS  BEEN  LOADED.  IF  THE  *y 
y*  SYSTEM  LOADER  LOADS  MTS  THE  LOAD  MODULE  IS  DIS-  *y 
y*  PLACED  BY  1200H  SO  THIS  ROUTINE  MOVES  MTS  TO  *y 

y * ABSOLUTE  LOCATION  ZERO  THEN  TRANSFERS  CONTROL  TO  *y 
y*  THE  MOVED  MTS* I PL  ROUTINE.  DURING 

y*  I PL  ALL  PERIPHERAL  DEVICES  .ARE  RESET,  THEN  MTS  *y 
y*  READS  THE  SYCOR  DIRECTORY  INTO  MEMORY.  AND  ASKS 
y*  THE  OPERATOR  AT  TERMINAL  0 WHETHER  RECOVERY  IS  */ 

y*  REQUIRED.  IF  THE  ANSWER  IS  ' Y*  THEN  THE  PROCEDURE  *y 
y*  RECOVER  IS  CALLED  TO  READ  THE  FILE  . MTSRCVR  INTO  *y 
y « THE  SYSTEM  STATE  BLOCK.  OTHERWISE  THE  PROCEDURE  */• 
y*  INITIALIZE  IS  CALLED  TO  BUILD  AN  SSB  FROM  INFOR-  *y 
y*  MAT I ON  CONTAINED  IN  THE  SYCOR  DIRECTORY  IMAGE  AND  *y 
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/*  THE  FILE  .MTSCNFG.  ONCE  IPL  IS  COMPLETE  CONTROL  IS  */ 
/*  TRANSFERRED  TO  THE  PROCESSOR  MANAGEMENT  SUBMODULE  */ 

/*  WHICH  WILL  CONTROL  ALL  SUBSEQUENT  PROCESSING.  */ 

/*  CALLED  BY:  SYCOR  SYSTEM  LOADER  */ 

/******************************************************/ 
DECLARE  (WAIT,  TEST,  CLEAR.  SHIFT)  LABEL; 

DECLARE  IPL*MSG(  IS)  BYTE  INITIAL  ('RECOVERY?  ( Y/N) ’ > ; 
/*  SET  STACK  POINTER  */ 

DE320;  /*  INDEX  TO  TOP  OF  SYS*STACK  */ 

SP3 ( HL3  C SYS*STACK)  + DE)  ; 

/*  CLEAR  PERIPHERAL  INTERRUPTS  */ 

OUT(  2) 3 ( A= 1) ; /*  DISABLE  TIMER  */ 

OUT( 83H) 3 ( A“ 10H) ; /*  CLEAR  CSST  INTERUPT  */ 

A3 IN(  8AH) ; /*  CLEAR  PRINTER  INTERUPT  */ 

/*  IF  DEBUGGER  IS  USED  TO  LOAD  THE  SYSTEM*/ 

/*  SKIP  THE  MOVE,  OTHERWISE  RELOCATE  MTS  */ 

/*  LOAD0S W ITCH  EQUALS  0 FOR  DISK  LOAD  */ 

/*  AND  0FFH  FOR  DEBUGGER  LOAD  */ 

IF  ( A30FFH;  A: : 0 /*  LOAD*S WITCH  */  ) ZERO  GOTO  CLEAR; 
HL30000H;  DE3 1200H;  BC34600H;  /*  MTS  SIZE  - 4600H  */ 

SHIFT: 

M(HL)3(A3M(DE)>  ; 

HL= HL+ 1 ; DE3  DE+ 1 ; 

IF  (BC»BC-I;  A30;  A::C)  !ZERO  GOTO  C HEX  IPLSOFFSET] ; 

IF  ( A: : B)  IZERO  GOTO  [HEX  IPLSOFFSET] ; 

/*  JUMP  IS  MADE  TO  SHIFT  ADDR  + 1200H  */ 

/*  WHILE  MIS  IS  TRANSFERRED  */ 

GOTO  CLEAR; 

CLEAR: 

/*  CLEAR  STATUS  LINE  ON  ALL  TERMINALS  */ 

DO  1 3 ( A3  0 ) BY  I3(A3  I'M)  WHILE  ( A3  I ; A::4)  !ZERO; 

CALL  CCLEAR*STATUS*LINEI ; 

END; 

/*  READ  SYCOR  DIRECTORY  INTO  MEMORY  */ 

CALL  READ0D I RECTORY; 

/*  DISPLAY  IPL* MSG  AT  TERMINAL  0 */ 

BC3 13 ; DE3 . IPL0MSG;  HL=0700H; 

CALL  [ MOVBUF] ; 

/*  ENABLE  INTERRUPTS  SO  TERMINAL  MODULE  MAY  */ 

/*  BE  USED  TO  PROCESS  REPLY  TO  IPLSMSG  */ 

ENABLE; 

OUT( 2) 3 ( A30) ; /*  RESET  TIMER  */ 

/*  PROCESS  OPERATOR’S  REPLY  */ 

WAIT:  REPEAT; 

CALL  [ TERMINAL*STATUS] ; 

UNTIL  (A: :©>  ’ZERO; 

CALL  [ READ* TERMINAL] ; 

I3  A; 

IF  ( A: : 0DH)  ZERO  GOTO  TEST; 

REPEAT; 

CALL  C READ*TERMINAL] ; 

UNTIL  ( A: : 0DH)  ZERO; 

TEST: 

IF  (A- I;  A: : ( B3 ' Y" ) ) ZERO 
\ ( A: : ( B379H) ) ZERO 
THEN  DO; 

A30;  CALL  CCLEAR*STATUS*LINE] ; 

CALL  RECOVER; 

END 
ELSE  DO; 

IF  ( A: : < B3 ’ N’ ) ) 'ZERO 
a (A::(B=6EH))  ’ZERO 
THEN 

DO;  E3’?'; 

CALL  [WRITE»TERMINAL] ; 

GOTO  WAIT; 

END 

ELSE 

DO: 

A=0;  CALL  C CLEAR*STATUS»L INE] ; 

CALL  INITIALIZE; 

END; 
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/I******:**:****************************!******************/' 

/■*  SERVICE  MODULE  */ 
/•*****************************************•*************/ 
/*  */ 
/*  THIS  MODULE  PROVIDES  THE  INTERFACE  BETWEEN  THE  */ 
/*  USER  AND  ALL  SYSTEM  SERVICES.  THESE  SERVICES  FALL  */ 
/*  GENERALLY  INTO  TWO  CATEGORIES:  */ 
/*  */ 
/*  (I)  SYSTEM  CALLS  - THOSE  FUNCTIONS  REQUIRED  TO  */ 
/*  ESTABLISH  THE  DESIRED  VIRTUAL  MACHINE  */ 
/*  ENVIRONMENT.  */ 
/%  */ 
/*  (2)  SERVICE  CALLS  - THOSE  FUNCTIONS  REQUIRED  TO  */ 
/*  ACCESS  THE  VIRTUAL  DEVICES  PROVIDED  BY  THE  */ 
/*  VIRTUAL  MACHINE  ENVIRONMENT.  */ 
/•*  */ 
/*  SYNTACTICALLY  THE  TWO  TYPES  OF  PROCEDURE  CALL  ARE  */ 
/*  IDENTICAL,  I.E.  */ 
/*  VALUE  = MTS(FID.PARM) . */ 
/*  EACH  CALL  TAKES  TWO  ARGUMENTS,  FID  IN  REGISTER  C */ 
/*  AND  PARM  IN  REGISTERS  DE;  AND  RETURNS  A VALUE  */ 
/*  IN  THE  A REGISTER.  THE  FORM  OF  THE  ARGUMENTS  AND  */ 
/*  THE  SIDE  EFFECTS  ASSOCIATED  WITH  EACH  DIFFERENT  */ 
/*  FUNCTION  ARE  DISCUSSED  IN  MORE  DETAIL  IN  THE  MTS  */ 


USER’S 

MANUAL.  NOTE  HOWEVER  THAT  THE 

ARGUMENT  REG- 

/* 

ISTER 

ASSIGNMENTS  CONFORM  TO  THE  PL/M  CONVENTION 

*/ 

/* 

FOR  PASSING  PARAMETERS. 

THE  FOLLOWING  TABLE  SUM- 

/* 

MARIZES  THE  ARGUMENT  OPTIONS  AND  CORRESPONDING 

*/ 

RETURNED  VALUES. 

/* 

/* 

FID 

NAME 

PARM 

VALUE 

*/ 

un  1 1 1 

9 

ATTACH 

LIST 

ERROR 

*/ 

/* 

1 

DISPLAYSMSG 

ERROR 

NONE 

*/ 

/* 

2 

LOGIN 

LIST 

ERROR 

*/ 

3 

PROTECT 

LIST 

ERROR 

/* 

4 

QUIT 

NONE 

NONE 

S'* 

3 

RESTRICT 

LIST 

ERROR 

/* 

6 

SIZE 

SIZE 

ERROR 

*/ 

7 

UNPROTECT 

LIST 

ERROR 

uALLd 

8 

TERM I NAL#STATUS 

NONE 

TRUE/FALSE 

9 

READ* TERM INAL 

NONE 

CHARACTER 

*/ 

/* 

10 

WRITE#TERMINAL 

CHARACTER 

NONE 

*/ 

/* 

1 1 

VRITE«PRINTER 

CHARACTER 

ERROR 

/* 

12 

SELECT#DRIVE 

DRIVE  NR 

ERROR 

*/ 

s* 

13 

SET»DMA 

DMA  ADDRESS 

ERROR 

/* 

14 

SET# TRACK 

TRACK  NR 

ERROR 

*/ 

13 

SET»SECTOR 

SECTOR  NR 

ERROR 

16 

READ#FLOPPY 

NONE 

ERROR 

/* 

17 

WRITESFLOPPY 

NONE 

ERROR 

*/ 

/* 

IN  THIS  TABLE  THE  ENTRY  ’LIST’  UNDER 

PARM  INDICATES*/ 

/*  THAT  THE  ACTUAL  ARGUMENT  IS  THE  ADDRESS  OF  A LIST  */ 
/*  OF  REQUIRED  PARAMETERS.  WHEN  ’NONE’  APPEARS  UNDER  */ 
/*  THE  SAME  HEADING,  IT  MEANS  THAT  THE  PARM  ARGUMENT  */ 
/*  IS  NOT  REQUIRED.  IF  ’NONE’  APPEARS  UNDER  VALUE  THE  */ 
/*  ERROR  CODE  RETURNED  IS  ALWAYS  ZERO.  THE  ENTRY  */ 

/*  ’ERROR*  INDICATES  THAT  AN  ERROR  CODE  IS  RETURNED.  */ 
/*  THESE  CODES  ARE  DEFINED  AS  FOLLOWS:  */ 

*/ 

/%  CODE  ERROR  */ 


OPERATION  SUCCESSFUL 
INVALID  COMMAND 
DISK  NOT  AVAILABLE 
DISK  IN  USE 
DISK  NUMBER  ERROR 
KEY  ERROR 
DRIVE  LETTER  ERROR 
PRINTER  NOT  READY 
HARDWARE  ERROR 


/* 

9 

TASK  DELETED 

*/ 

/* 

10 

DRIVE  NOT  AVAILABLE 

*/ 

/% 

11 

PRINTER  IN  USE 

*/ 

/* 

12 

OUT  OF  BOUNDS 

*/ 

/*  */ 


/■*  THE  SERVICE  MODULE  IS  DIVIDED  INTO  THREE  BASIC  */ 

SUBMODULES : 

/*  */ 

/*  (1)  USER  INTERFACE  *' 

/%  THIS  SUBMODULE  CONTAINS  THE  ENTRY  POINT  INTO  */ 

/*  THE  SERVICE  MODULE  FROM  MCP  AND  USER  PRO- 

/*  GRAMS.  IT  IS  HERE  THAT  THE  SERVICE  REQUEST  */ 

/*  IS  INTERPRETED  AND  THE  APPROPRIATE  SERVICE  */ 

/*  ROUTINE  CALLED  FOR  EXECUTION.  */ 

/*  */ 

(2)  SYSTEM  CALLS 

/*  THIS  SUBMODULE  CONTAINS  THE  SERVICE  ROUTINES  */ 

/*  AND  SUPPORTING  PROCEDURES  WHICH  CREATE  OR 

/%  MODIFY  THE  USER’S  VIRTUAL  ENVIRONMENT.  */ 

/*  THESE  ROUTINES  ARE  INVOKED  BY  MCP  IN  RESPONSE 

/*  TO  SYSTEM  COMMANDS  ENTERED  AT  A TERMINAL.  */ 

/*  THEY  MAY  ALSO  BE  ACCESSED  BY  USER  PROGRAMS  */ 

/■*  DIRECTLY  THROUGH  THE  USER  INTERFACE  SUBMODULE.  *s 

/*  */ 

/*  C3)  SERVICE  CALLS 

/*  THIS  SUBMODULE  CONTAINS  SERVICE  ROUTINES  AND  */ 

/*  SUPPORTING  PROCEDURES  WHICH  ALLOW  A USER  */ 

/■*  PROGRAM  TO  ACCESS  A VIRTUAL  TERMINAL  OR  */ 

/*  VIRTUAL  FLOPPY  DISK.  */ 

*s 


/xx*****xx**x******x*******x****x'*x******x***********x*/ 

/I***********************************:*******************/ 


/XXXXXXXX********************'**************************/' 
/■xxxxxxxxxxxxxxxxxxx  USER  INTERFACE  *******************/ 


/x************  INTERMODULE  LINKAGE  MACROS  ************/ 
DECLARE  GLOB1  COMMON: 

[ INT  MB  TB  M2BI  [M2B:=O600H3  [MB:=0300H3  [TB:*1000H3 

I I NT  S2B  S3BI  [S2B:=2200H3  [S3B:=27O0H3 

C MACRO  MONITOR  ’ C HEX  MB  +0AAH3 ’ I 

[MACRO  INDEX  ’[HEX  M2B  + 3H3  ’ I 

[MACRO  ATTACH  ’[HEX  S2B  + 179H3  ’ 3 

[MACRO  LOGIN  ’[HEX  S2B  + 224H3 ’ ] 

[ MACRO  PROTECT  ’ [ HEX  S2B  + 2ECH3 ’ ] 

[MACRO  QUIT  ’[HEX  S2B  + 364H3 ’ I 
[MACRO  BUMP  ’[HEX  S2B  + 12BH3 ’ ] 

[MACRO  RESTRICT  ’[HEX  S2B  + 36 EH] ’ I 
[MACRO  SIZE  ’[HEX  S2B  ♦ 3F0H] ’ ] 

[ MACRO  UNPROTECT  ’ [ HEX  S2B  + 448H] ’ ] 

[MACRO  WRITE*PRINTER  ’[HEX  S3B  + 172H]’] 

[MACRO  SELECT8DRIVE  ’[HEX  S3B  + 22CH] ’ I 
[ MACRO  SET9DMA  ’ C HEX  S3B  + 29EH3 ’ ] 

[ MACRO  SETSTRACK  ’ [ HEX  S3B  + 2BBH] ’ ] 

[ MACRO  SET»SECTOR  ’ [ HEX  S3B  + 2D0H] ’ ] 

[ MACRO  READ*FLOPPY  ’ [ HEX  S3B  ♦ 2EAH] ’ ] 

[MACRO  WRITE* FLOPPY  ’[HEX  S3B  + 2FEH3 ’ I 
[ MACRO  MTS*MSG  ’ [ HEX  TB  + 837H] ’ ] 

[MACRO  TERM I N AL*STATUS  ’[HEX  TB  + 8D2H3 ’ 3 
[MACRO  RE AD* TERM INAL  ’[HEX  TB  + 8DCH1 ’ ] 

[MACRO  WRITE* TERM INAL  ’[HEX  TB  + 93CH] ’ ] 

[MACRO  PARM0  ' GL0B1 ( 10H) ’ ] 

[ MACRO  ERROR  ’ GLOB  1 ( 14H) ’ ] 

[MACRO  LOCK  ’ GLOB 1 ( 13H) ’ 3 

[MACRO  SVC*STACK*TOP  ’ GLOB 1 C 2BH) ’ 3 SVC*STACK  + TOP  */ 
[MACRO  TASK  ’ GLOB1 ( 24 1H) ’ 3 
[ MACRO  TCT*STATUS  ’ GLOB  1 ( 246H) ’ 3 
[ MACRO  SWAP*STACK9  ’ GLOB  1 ( 3BFH) ’ 3 
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I 


/'************«**  GENERAL  PURPOSE  MACROS  **********»****/ 

C I NT  TOP]  [TOP: *20] 

[MACRO  INPUT»WAITING  ’ 0FFH’ ] 

/«**«iMt*****»**»*****  DECLARATIONS  **»**********«*»**»»,' 

DECLARE  (MTS* EXTERNAL,  MTS0 I NTERNAL . EXIT, 

MTS , TERM0BLOCK)  LABEL; 

DECLARE  SAVE  DATA  (0,0,0); 


/He*******************  ENTRY  POINT  ********************** 

INTERNAL* MTS:  /*  INTERNAL  ENTRY  POINT  INTO  SERVICE  */ 

/*  MODULE,  I.E.  ENTRY  POINT  FROM  *s 

/*  OTHER  MTS  ROUTINES  */ 

SAVEC  2) * ( A* [ LOCK] ) ; /*  SAVE  LOCK  VALUE 

[ PARM0] * ( HL=DE) ; /*  SAVE  PARM  LIST  ADDRESS  */ 

SAVE*  ( HL*0+SP) ; SAVE  USER  SP  *s 

SP= ( HL* . [ S VC*STACK*TOP ] ) ; 

IF  ( A*  < < C)  ICY  GOTO  MTS; 

A*  ( A*  !C)  + 1 ; CONVERT  FID  TO  POSITIVE  NR  */ 

IF  (A: : 3)  ICY  THEN 

/*  INVALID  COMMAND  - ERROR  1 */ 

DO;  [ERROR]  = ( A= 1) ; GOTO  EXIT;  END; 

H=0;  L=  A; 

DO  CASE  HL; 

/*  0 DO;  NOP;  END; 

/■*  -1  */*  DO;  CALL  [ READSTERMINAL]  ; 

[ ERROR] -A; 

END; 

-2  *s  CALL  [ BUMP]  ; 

END;  /*  CASE  */ 

GOTO  EXIT; 

100H:  s*  ADJUST  EXTERNAL  ENTRY  POINT  LOCATION  */ 

EXTERN ALSMTS : EXTERNAL  ENTRY  POINT  INTO  SERVICE  */ 

/*  MODULE,  I.E.  ENTRY  POINT  FROM  */ 

/*  USER  PROGRAMS  */ 

DISABLE; 

SAVE(  2 ) 3 ( A* [ LOCK]  8 0FEH) ; /*  SAVE  LOCK  VALUE  */ 

[ LOCK] * ( A*  A N 01);  s*  LOCK  OUT  SWAPPING 
ENABLE; 

[PARM0] *(HL=DE) ; /*  SAVE  PARM  LIST  ADDRESS  */ 

SAVE* ( HL*0+SP) ; /*  SAVE  USER  SP  *s 

SP* ( HL* . [ SVC*STACK*TOP ] ) ; 

MTS:  s*  SYSTEM  AND  SERVICE  ROUTINES  */" 

IF  < A=C;  A: ; 18)  ICY  THEN 

/*  INVALID  COMMAND  - ERROR  1 */ 

DO;  [ ERROR] * ( A* 1 ) ; GOTO  EXIT;  END; 

[ ERROR] *( A=0) ; /*  INITIALIZE  RETURNED  ERROR  CODE  */ 

H*0;  L»C; 

DO  CASE  HL; 

/********  SYSTEM  CALLS  s***************/ 


0 

CALL 

[ ATTACH] ; 

/* 

l 

*/ 

CALL 

[ MTS*MSG] ; 

2 

CALL 

[LOGIN! ; 

/* 

3 

*/ 

CALL 

[ PROTECT] ; 

/% 

4 

*/ 

CALL 

[QUIT]  ; 

/* 

3 

CALL 

[RESTRICT] : 

/* 

6 

*/ 

CALL 

[SIZE] ; 

/% 

7 

*/ 

CALL 

[ UNPROTECT1 

*********  SERVICE  CALLS  ***************/ 

/*  8 */  DO;  CALL  [ TERMINAL*STATUS] ; 

[ERROR]*  A; 

END; 

9 */  DO;  CALL  [ TERM  I N.AL*STATUS  ] ; 

IF  ( A: : [ INPUTSWAITING) ) ZERO  THEN 
DO;  CALL  [ R£AD»TERMINAL] ; 
[ERROR]* A; 

END 

ELSE  GOTO  TERM* BLOCK; 


L 
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/* 

10 

*/ 

END; 

CALL 

[ WRITE0TERMINAL] 

/* 

11 

*/ 

CALL 

[WRITE3PRINTER] ; 

/* 

12 

*/ 

CALL 

C SELECT0DR I VE ] ; 

/% 

13 

*/ 

CALL 

[ SET0DMA] ; 

/* 

14 

*/ 

CALL 

[ SET* TRACK] ; 

/* 

13 

*/ 

CALL 

( SET*SECTOR] ; 

/* 

16 

CALL 

[ READ*FLOPPY] ; 

/* 

17 

*/ 

CALL 

[WRITESFLOPPY] ; 

ElfDi  /% 

CASE 

*/ 

EXIT:  y*  COMMON  EXIT  POINT  FOR  INTERNAL  AND  EXTERNAL  */ 
SP*  ( EEL1  SAVE)  ; /*  RESTORE  USER  SP  */ 

DISABLE; 

[ LOCK]  * ( A*SAVE(  2) ) ; /*  RESTORE  LOCK  VALUE  */ 

A- [ ERROR] ; 

ENABLE; 

RETURN; 

/*  END  MTS  */ 

TERMBBLOCK: 

/at****************************************:********:*:****/' 


/*  THIS  ROUTINE  IS  CALLED  WHEN  THE  TASK  CURRENTLY  */ 
/»  ALLOCATED  THE  CPU  IS  BLOCKED  FOR  TERMINAL  1/0 . THE  */ 
/*  ROUTINE  STORES  THE  CURRENT  MACHINE  ENVIRONMENT  IN  */ 
/*  THE  SWAP  STACK  AND  TRANSFERS  CONTROL  TO  THE  */ 
/■*  MONITOR  FOR  SELECTION  OF  THE  NEXT  READY  TASK.  */ 
/*  CALLED  BY:  MTS  */ 


/*****************************:K****************:rx**:****/ 
/*  SET  BIT  3 IN  TCTSSTATUS  */ 

DE" . C TCT* STATUS ] ; A*  C TASK] i CALL  C INDEX]  ; 

M<  HL)  = ( A*M(  HL)  s 20H)  ; 

/*  SAVE  ENVIRONMENT  */ 

( SWAP*STACK9] * < HL*SAVE) ; /*  ONLY  USER  SP  NEEDED  */ 

GOTO  [MONITOR] ; 

/*  END  TERM0BLOCK  */ 


EOF 

/*:MC*X*****#**:Mt*******:********************************/' 
/-xxxxjitxx*************  SYSTEM  CALLS  ********************/ 
/a:*****************************************************/ 


INTERMODULE  LINKAGE  MACROS  *****»*»****,■' 
DECLARE  GLOB1  COMMON; 

[ INT  TB  MB  M2B]  [M2B:*0600H]  CTB:=1000H]  [MB:=0300H] 

C I NT  S3B]  [ S3B: =2700H] 

[MACRO  MONITOR  ’[HEX  MB  + 0AAH] ' ] 

(MACRO  INDEX  ’ [ HEX  M2B  + 3H]  ’ ] 

[MACRO  INDEX2  ’[HEX  M2B  + 0DH] ’ ] 

(MACRO  INDEX4  ’[HEX  M2B  + 10H]  1 ] 

[MACRO  INDEX8  ’[HEX  M2B  + 24HT  ] 

[ MACRO  GET  ' [ HEX  M2B  + 38HJ ’ I 
(MACRO  MOVBUF  '[HEX  M2B  + 41H]’] 

(MACRO  MINIDISK  ’[HEX  M2B  + 34H]  ’ ] 

(MACRO  SIZESMSG  '(HEX  TB  + 864H] * ] 

[ MACRO  STATUSSMSG  ’ ( HEX  TB  + 88CH] ’ ] 

[MACRO  CLEAR*STATUS*LINE  • ( HEX  TB  + 827H] ’ ] 

( MACRO  MTSMEG  ’ ( HEX  TB  + 837H1 ’ ] 

(MACRO  PARM0  ' GLOBK  I0H)  ' ] 

(MACRO  DISK  ’ GLOBK  12H)  ' ] 

(MACRO  DRIVE  ' GLOBK  13H)  ’ 1 
(MACRO  ERROR  ’ GLOBK  I4H)  • ] 

(MACRO  MDBUF  ' GLOBK  3FH)  ' ] 

[MACRO  TASK  • GLOBK  24  I H)  ' ] 

[ MACRO  TCT0STATUS  * GLOB I ( 246H) ’ ] 

(MACRO  TCT*DM  ' GLOB I ( 24AH) ’ ] 

(MACRO  TCTtSIZE  ' GLOB!  ( 26AH) ’ ] 

(MACRO  TCTtBOE  ' GLOBK  26EH)  ' ] 

(MACRO  TCT0EOE  ' GLOBK  276H)  ' ] 

[ MACRO  DMT* FLAG  1 GLOB l ( 27EH) ' ] 

(MACRO  DMT0KEY  • GLOB! < 3 1 EH)  ' ] 
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[ MACRO  VDC» DRIVE  ’ GL0BK3AEH)  ’ I 
C MACRO  CNFG#F I LE  1 GLOB 1 ( 244H) ’ I 
C MACRO  PRT#CNTRL  ’ GLOB 1 C 39 EH) ' I 
C MACRO  READ#BUF  * C HEX  S3B  + 07H] • 1 
[MACRO  WRITE#BUF  ’[HEX  S3B  + 23H] ’ I 


/***************  GENERAL  PURPOSE  MACROS  ***************/ 

[MACRO  WRITE  ’2’] 

[MACRO  HARDWARE# ERROR  ’8’1 

/********************  DECLARATIONS  xx**x***x»::****x*x***/' 

DECLARE  PLIST  DATA  < 0 , 0 , OFFH, 0FFH, 0FFH, 0FFH) ; 

DECLARE  DSK  DATA  (0)  •, 

DECLARE  PA  DATA  (0>i 

/x*******x*xx**x**  UTILITY  PROCEDURES  *****************/ 
VAL#DRIVE:  PROCEDURE; 

✓X*#************:*#*************************************/ 

/"*  THIS  PROCEDURE  VALIDATES  THE  DRIVE  NUMBER  INPUT  TO  */ 
/*  ANY  SYSTEM  CALL  WHICH  REQUIRES  THAT  PARAMETER.  */ 

/■*  INPUT:  a - DRIVE  NUMBER  TO  BE  VALIDATED  */ 

/%  OUTPUT:  DRIVE  - NUMBER  OF  FREE  DRIVE  FOUND  */ 

s*  ERROR  - ERROR  CODE 

/*  CALLED  BY:  ATTACH  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

IF  < A: : 0FFH)  ZERO  THEN  /*  NO  DRIVE  SPECIFIED  *s 
DO;  ✓*  SCAN  DRIVE  MAP  FOR  FREE  DRIVE  */ 

DECLARE  LI  LABEL; 

DE* . [ TCT#DMJ ; A*  ( TASK] ; CALL  [ INDEXBI ; 

B=8; 

REPEAT; 

IF  ( A=<  M( HL) ) ICY  GOTO  LI; 

HL-HL+ 1 ; 

UNTIL  ! B*  B-  1 > ZERO; 

/*  NO  DRIVE  AVAILABLE  - ERROR  10  */ 

[ERROR]*!  A* 10) ; RETURN; 

LU  [ DRIVE]  * ( A=8-B>  ; /*  FREE  DRIVE  FOUND  */ 

END 

ELSE  IF  (A::fl)  ICY  THEN 

/*  DRIVE  NR  > T - ERROR  6 */ 

DO;  [ ERROR] * < A*6) ; RETURN;  END; 

END  VALSDRI VE; 

VAL#DISK:  PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxicrxxxxxxxxxxxx,' 
/*  THIS  PROCEDURE  VALIDATES  THE  DISK  NUMBER  INPUT  TO  */ 
/*  ANY  SYSTEM  CALL  WHICH  REQUIRES  THAT  PARAMETER.  */ 

/■*  INPUT:  A - DISK  NUMBER  TO  BE  VALIDATED  */ 

/*  OUTPUT:  DISK  - NUMBER  OF  FREE  DISK  FOUND 
/*  ERROR  - ERROR  CODE 

/*  CALLED  BY:  ATTACH  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

IF(A::0FFH)  ZERO  THEN  /*  NO  DISK  SPECIFIED  */ 

DO;  SCAN  DISK  MAP  FOR  FREE  DISK 

DECLARE  L2  LABEL; 

HL*  . [ DITr#FLAG]  ; B*32; 

REPEAT; 

IF  ( A=> M( HL) ) CY  /*  DISK  AVAILABLE  */ 

8 ( A*>  A)  ICY  NOT  IN  USE  *s 

8 ! A*  > A)  ICY  /*  NOT  PROTECTED  •*/ 

8 ( A*  > A)  ICY  /x  NOT  RESTRICTED  */ 

THEN  GOTO  L2; 

HL*  HL+  1 ; 

UNTIL  (B*B-1>  ZERO: 

/*  NO  DISK  AVAILABLE  - ERROR  2 */ 

[ERROR]*! A* 2) ; RETURN: 

L2:  [DISK]*! A*32-B) ; s*  FREE  DISK  FOUND  */ 

END 

ELSE  IF  ! A:  : 32)  ICY  THEN 

DISK  NR  ' 31  - ERROR  4 *s 


DO;  [ ERROR]  = ( A*  4 ) ; RETURN ; END 

ELSE 

DO;  /*  SEE  IF  SPECIFIED  DISK  AVAILABLE 
DE»  . C DTTTSFLAG]  ; A*  [DISK];  CALL  [INDEXI; 

IF  ( A=>  M(  HL) ) ICY  THEN 

/*  DISK  NOT  AVAILABLE  - ERROR  2 
DO;  C ERROR]  = ( A-2) ; RETURN;  END; 

IF  ( A*>  A)  CY  THEN 

/*  DISK  IN  USE  - ERROR  3 */ 

DO;  C ERROR! * ( A*  3 ) ; RETURN;  END; 

END; 

END  VALSDISK; 

VALSKEY:  PROCEDURE; 

/'X*XXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXX  a******/ 


THIS  PROCEDURE  COMPARES  THE  KEY  INPUT  AS  A SYSTEM 
/*  CALL  PARAMETER  WITH  THAT  ASSOCIATED  WITH  A SPECI-  */ 
/*  FIED  VIRTUAL  DISK  FILE. 

/*  INPUT:  PARM  - VARIABLE  HOLDING  ADDRESS  OF  PARM  KEY  */ 
/*  DISK  - VIRTUAL  DISK  FILE  NUMBER  *s 

/*  OUTPUT:  ERROR  - ERROR  CODE  */ 

/*  CALLED  BY:  ATTACH  */ 


/XXXXXXX*XXX**XXXXXXXXXXXXXXXXXXXXX»:XXXXXXXXXXXXXXXXXXX/ 

DE= . C DMT* KEY!  ; A*  [DISK];  CALL  [ INDEX4]  ; 

DE-HL;  HL*  C PARM0]  ; 

DO  B»0  BY  B»B+1  WHILE  CA=4;  A::B)  ’ZERO; 

IF  ( A*  M(  DE) ; A: : M( HL) ) ZERO 
N [IF  ( A: : 20H)  ZERO  8 ( A*  M( HL) -0FFH)  ZERO 
THEN  CY= 1 ELSE  CY=0>  CY 
THEN  CHAR  MATCH 

DO; 

DE= DE+ 1 ; HL=  HL+ I ; 

END 

ELSE  /*  KEY  ERROR  - ERROR  3 «/ 

DO;  [ ERROR]  = ( A=  3 ) ; RETURN;  END; 

END;  WHILE  */ 

/*  KEYS  MATCH  */ 

END  VALSKEY; 

CLEARSFLAG:  PROCEDURE; 

/XXXXXXXXX********XX**X**XXX*XXXXX*X**XXXXX*XXXX:*X*****/ 


/■*  THIS  PROCEDURE  RESETS  THE  IN  USE  BIT  (BIT  1)  IN  *s 
/*  THE  DPTTSFLAG  FOR  A SPECIFIED  VIRTUAL  DISK.  */ 

INPUT:  B - DISK  NUMBER  */ 

/*  CALLED  BY:  ATTACH.  LOGIN.  CLEARSDM  */ 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
DE= . I DMTSFLAG] ; A=B  8 1FH;  CALL  [INDEX]; 

M<  HL)  * < A*  M(  HL)  8 0FDH) s 
END  CLEARSFLAG; 

CLEARS DM:  PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
✓*  THIS  PROCEDURE  RESETS  ALL  ENTRIES  IN  THE  TCTSDM  */ 
s*  ASSOCIATED  WITH  THE  CURRENT  VALUE  OF  TASK.  */ 

/*  CALLED  BY:  LOGIN.  QUIT  */ 

/XXXXXXXXXXXXXXXX*XXXXXXXXXXX*XXXX***XXXX**XXXXXXXXXXXX,' 

DE* . [ TCTSDM] ; A* [ TASK]  ; CALL  [ I NDEX8] ; 

C*8; 

REPEAT; 

B=M(  HL)  ; M(  HL)  = 0; 

IF  <A*<B>  CY  8 ( A*<  A)  'CY  THEN 
DO; 

STACK1 HL ; 

STACK* BC; 

CALL  CLEARSFLAG; 

BC= STACK; 

HL* STACK; 

END; 

HL= HL+  1 ; 

UNTIL  (C*C-1)  ZERO: 

END  CLEARS DM; 

/xxxxx*************  SYSTEM  ROUTINES  *******************/ 
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BUMP:  PROCEDURE! 

/-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^ 
/x  THIS  INTERNAL  SYSTEM  CALL  DELETES  THE  CURRENT  TASK  */ 


/'X  FROM  THE  SYSTEM.  */ 
/*  ARGUMENTS : x/ 
✓x  ( l)  FID  * -2  x/ 
/*  (2)  FARM  * NONE  */ 
s*  VALUE:  NONE  */ 
/'x  CALLED  BY:  INTERNALXMTS , QUIT  *' 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x  WRITE  MINI-DISK  BUFFER  IF  NECESSARY  *s 
CALL  [ WRITEXBUF]  ; 

IF  ( A- 1 ERROR!  \ A)  'ZERO  THEN 

DO;  E* C HARDWAR£*ERROR] ; CALL  UTTSSMSG] ; END; 

/*  CLEAR  STATUS  LINE  */ 

A*  C TASK] ; CALL  C CLEAR*STATUS»LINE] ; 

/*  CLEAR  TCT  */ 

CALL  CLEAR*DM; 

DE» . CTCTXSIZE] ; A=CTASK3;  CALL  C INDEX] ; 

M(HL)=32;  /x  SIZE  = 16K  */ 

HL= BC+(  DE= . C TCTSSTATUS ] ) ; 

M(HL)=0;  ^x  RESET  STATUS  BYTE  */ 

IF  ( A=  < C PRTfCNTRL] ) CY  THEN  /*  PRINTER  IN  USE  */ 

DO-, 

A=>  A;  B=  ( A=  A 3 03H) ; 

1 ( A* C TASK] ; A::B)  ZERO  THEN 

DO;  /x  THIS  TASK  HAS  PRINTER  CONTROL  */ 

IF  (A=< [PRTSCNTRL] ; A=<A)  CY  THEN 
/*  RESET  PRINTER  CONTROL  BYTE  X/' 
IPRT#CNTRL]=(A=0) ; 

END; 

END; 

END  BUMP; 

ATTACH:  PROCEDURE; 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 


/x  SIMULATE  THE  PHYSICAL  OPERATION  OF  LOADING  DISK  */ 
/*  < DISK  NR>  INTO  DRIVE  < DRIVE  LTR> . */ 

/x  ARGUMENTS : */ 

/x  (1)  FID  1 0 */ 

/■*  (2)  PARM  * BASE  ADDRESS  OF  PARAMETER  LIST  x/- 

/*  BYTE  0:  DRIVE  NUMBER  (0-7) 

/x  BYTE  I:  DISK  NUMBER  (0-31)  x/- 

/x  BYTES  2-3:  PROTECTION  KEY  (0-4  CHARS)  */ 

VALUE:  ERROR  CODE  */ 

/*  CALLED  BY:  LOGIN,  MTS  */ 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
BC= ( HL= [ PARM0] ) ; [ DRIVE]  = ( A=M(  BC) ) ; 

/*  VALIDATE  DRIVE  NR  x/- 

CALL  VAL*DRIVE;  IF  (A=[  ERROR]  N A)  ’ZERO  RETURN; 

HL=  C PARM0]  + 1 ; C DISK] * ( A= M( HL) ) ; 

/*  VALIDATE  DISK  NR  */ 

CALL  VALSDISK;  IF  ( A= C ERROR]  N A)  (ZERO  RETURN; 

DE= . C DMT*FLAG] ; A=CDISK3 ; CALL  [ INDEX] ; 

IF  <A=M(HL)  Q 04H)  (ZERO  THEN  DISK  PROTECTED  */ 

DO; 

DE= . C DMT*FLAGI ; A= C D ISK]  : CALL  C INDEX] ; 

IF  (A=M(HL)  8 08H)  ’ZERO  THEN 
DO;  READ  ONLY  DISK  */ 

SET  UP  READ  ONLY  BIT 
M(HL)=(A=M(HL)  s 02H)  ; 

[ DISK]  *(A=C  DISK]  N 40H)  ; /x  SET  TCT»DM  BIT  f> 

END 

E1LSG 

DO;  /*  VALIDATE  KEY  */ 

C PARM0]  = ( HL=  C PARM0]  + 1 , + 1 ) ; 

CALL  VALXKEY; 

IF  (A»C ERROR]  \ A)  ’ZERO  RETURN; 

END; 

END: 

/*  MODIFY  DMTSFLAG  */ 

DE* . C DMTSFLAG] ; A*CDISK3  8 1FH;  CALL  [INDEX]; 
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MC  HL)  * ( A* M<  HL)  NN  02H)  ; /*  SET  DMT*FLAG  BIT  1 */ 

/*  MODIFY  TCT»DM  */ 

DE*  . C TCT*DMJ  ; A* C TASK]  ; CALL  C INDEXB] ; 

DE=HL;  A=  C DRIVE! ; CALL  CINDEXli 
B=  M(  HL)  ; 

M(  HL) * < A» [DISK]  \ 80H) ; /*  SET  TCT»DM  BIT  7 */ 

/*  RESET  OLD  DISK’S  IN  USE  BIT  */ 

IF  CA*B  9 40H)  ZERO  CALL  CLEAR* FLAG; 

/*  DISPLAY  STATUS  MSG  */ 

B* CA=[  DRIVE] > ; C*CA*[DISK]  3 IFH)  ; 

IF  (ACIDISE  840H)  TZERO  THEN  A=72H  ELSE  A= ’ 

CALL  [ STATUS*MSG] ; 

END  ATTACH; 


LOGIN:  PROCEDURE; 

/%****%*%*■***■*.*.■*******■*.*.%****■****.*■****■*.■*■**•*■******■*■*****/ 
/*  THIS  SYSTEM  CALL  NOTIFIES  MTS  THAT  THE  REQUESTING  */ 
/*  TERMINAL  IS  NOW  ACTIVE,  AND  SIMULATES  THE  PHYSICAL  *f 
/*  COLD-START  BOOTSTRAP  OPERATION.  THE  BOOTSTRAP  LOAD  */ 
/*  TAKES  PLACE  FROM  VIRTUAL  DRIVE  A.  THE  VIRTUAL  DISK  *s 


/*  ATTACHED  TO  THIS  DRIVE  MAY  BE  SPECIFIED  IN  THE  */ 
/*  PARAMETER  LIST,  OR  DISK©  WILL  BE  ASSUMMED  AS  THE 
/*  DEFAULT. 

/*  ARGUMENTS : 

(1)  FID  * 2 

/*  (2)  PARM  = BASE  ADDRESS  OF  PARAMETER  LIST 

/•*  BYTE  0:  DISK  NUMBER  (0-31)  */* 

/*  BYTES  1-4:  PROTECTION  KEY  (0-4  CHARS)  */ 

VALUE:  ERROR  CODE 


/******************************************************/ 
/*  WRITE  MINI-DISK  BUFFER  IF  NECESSARY  */- 
CALL  [WRITESBUF1; 

IF  ( A- C ERROR]  s A)  TZERO  RETURN; 

/*  RE- INITIALIZE  TCT  */ 

CALL  CLEARSDM; 

/*  PROCESS  DISK  PARAMETER  */ 

IF  ( HL=  [ PARM0] ; A=M(HL) ; A: : 0FFH)  TZERO  THEN 
DO;  /■*  DISK  SPECIFIED  */ 

BC=  5 ; DE=HL;  HL= . PLISTC 1) ; 

CALL  [MOVBUF] ; [ PARM0] * ( HL= . PLIST) ; 

END 

ELSE 

DO;  /*  ASSUME  DISK  0 */ 

PLISTC 1)=CA=0) ; PLISTC  2) =(  A= ’ M’  ) ; 

PLISTC  3)  =C  A=  ’ T’ ) ; PL ISTC 4)  = C A= ’ S ’ ) ; 

PLISTC  3) = C A= ’ ’); 

[ PARM0] 3 C HL= .PLIST) ; 

END; 

CALL  ATTACH; 

IF  CA=C ERROR]  N A)  TZERO  RETURN; 

B=0;  C=  C A=  [ TASK]  ) ; 

HL= BC+C  DE= . [ TCT*STATUS] ) ; 

MC  HL) * 1 ; SET  BIT  0 */ 

/*  DISPLAY  SIZE  MSG  */ 

DE= . [ TCTSS IZE] ; A=  [ TASK] ; CALL  [ INDEX] ; 

CY*0;  A=  > MC  HL) ; CALL  CSIZESMSG]; 

END  LOGIN; 

UPDATE*CNFG*FILE:  PROCEDURE; 


r*  THIS  ROUTINE  PROVIDES  INDEXING  INTO  THE  MTS  */ 
/*  CONFIGURATION  FILE  AND  PERMITS  MODIFICATION  OF  */ 
/■*  OF  THE  CONFIGURATION  FILE  WHICH  IS  NECESARRY  */" 
/*  WHEN  PROTECTING.  UNPROTECTING  OR  RESTRICTING  */ 
s*  USER  FILES. 

/■*  CALLED  BY:  PROTECT,  UNPROTECT,  RESTRICT  */ 


/I******************:*************:*********************/ 

PA=  A;  CALL  [ WRITE*BUF]  ; 

BC- C HL=  C CNFGSF I LEI ) ; 

CALL  I RLAD*BUF] ; 

DE= . [ MDBUF] ; A=DSK;  CALL  C INDEX81 ; DE=HL; 

A* DSK;  CALL  [ INDEX4] ; B*0;  C=CA=DSK); 

HL=  HL+BC ; HL=  HL+-  C DE=  8 ) ; 
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STACK*  HL ! BC=  < HL* C PARM0] ) ; HL* STACK;  BC=BC+I;  D=0; 
REPEAT; 

A*M<BC);  IF  ( A:  : 0FFH)  ZERO  THEM  A*20H; 

M(HL)*A;  /*  CHARGE  FF  PARAMETER  TO  SPACE  */ 
BC*BC+ 1 1 HL*HL+1;  D*(A*D+1); 

CRTIL  ( A: :4)  ZERO; 

M(  HL)  * ( A* PA)  ; /"*  STORE  PROTECTIOR  ATTRIBUTE 

CVDC0DRIVE]=(A=C VDC0DRIVE]  \ 80H)  ; 

END  U DATE»CNFC*FILEs 


A= DSK;  CALL  [ INDEX] ; 


PROTECT:  PROCEDURE; 

/XXX ***** XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/x  THIS  SYSTEM  CALL  ADDS  THE  READ/' WRITE  PROTECTION  x/ 
/X  ATTRIBUTE  TO  A SPECIFIED  VIRTUAL  DISK  FILE.  x/ 

/x  ARGUMENTS:  x/ 

/*  ( 1)  FID  3 3 x/ 

/*  (2)  PARM  * BASE  ADDRESS  OF  PARAMETER  LIST  x/ 

/■*  BYTE  0:  DISK  NUMBER  (0-31)  x/ 

/x  BYTES  1-4:  PROTECTION  KEY  (0-4  CHARS)  X/ 

/x  VALUE:  ERROR  CODE  x/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

IF  ( HL*  I PARM01 ; DSK*  ( A*  M(  HL)  ) ; A::32)  ICY  THEN 

DO;  /*  DISK  * > 31  x/ 

[ ERROR]  »(A*4>  ; 

RETURN; 

END 

ELSE 

IF  ( HL* HL+ 1 ; A*M(  HL) ; A: : 0FFH)  ZERO  THEN 
DO;  /*  KEY  ERROR  x/ 

C ERROR] *(A=3)  ; 

RETURN; 

END 

ELSE 

IF  ( DE* . C DMT0FLAG] ; A* DSK;  CALL  [ INDEX] ; 

A*  M<  HL)  ; A*  > A;  A=>A;  A=>A)  CY  THEN 
DO;  /*  DISK  ALREADY  PROTECTED  x/ 

C ERROR] *( 4*3) ; RETURN; 

END 

ELSE 

DO; 

DE* . C DMT0KEY1 ; A* DSK;  CALL  [ INDEX4] ; 

BC=HL;  HL*  [ PARM03  + 1 ; D=0; 

REPEAT;  /x  UPDATE  DMT# KEY  x/ 

A=M(  HL) ; IF  ( A: : 0FFH)  ZERO  THEN  A* 20H; 

M( BC) * A;  BC=BC+1;  HL=HL+ 1 ; D*(A*D+1); 

UNTIL  (A: :4)  ZERO; 

DE* . C DMT#FLAG]  ; A* DSK;  CALL  [ INDEX]  ; 

M(  HL)  * ( A* M(  HL)  s 04H)  ; /*  SET  PROTECT  BIT  x/ 

A*  ’ P ’ ; CALL  UPDATESCNFG#F ILE; 

END; 

END  PROTECT; 

QUIT:  PROCEDURE; 

/**»[*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXX/ 

/x  THIS  SYSTEM  CALL  NOTIFIES  MTS  THAT  THE  REQUESTING  x/ 
/x  TERMINAL  IS  NO  LONGER  ACTIVE.  x/ 

/x  ARGUMENTS:  x/ 

/x  (DFID*  4 x/ 

/*  (2)  PARM  * NONE  x/ 

/x  VALUE:  NONE  x/ 

^Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^ 
CALL  BUMP; 

GOTO  [MONITOR] ; 

END  QUIT; 

RESTRICT:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/x  THIS  SYSTEM  CALL  ADDS  THE  READ  RESTRICTION  ATTRI-  x/ 
/*  BUTE  TO  A SPECIFIED  PROTECTED  VIRTUAL  DISK  FILE.  x/ 
/x  ARGUMENTS:  x/ 

/x  (1)  FID  * 3 x/ 

/x  (2)  PARM  = BASE  ADDRESS  OF  PARAMETER  LIST  */ 

/x  BYTE  0:  DISK  NUMBER  (0-31)  x/ 
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/*  BYTES  1-4:  PROTECT  I OK  KEY  (0-4  CHARS)  */■ 

/*  VALUE:  ERROR  CODE  */ 

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/" 
IF  (HL=[PARM01  ; DSK*  ( A=M(  HL>  > ; A: : 32)  !CY  THEH 
DOt  /"*  DISK  > 31  */ 

[ ERROR] * ( A*4) ; RETURN: 

END: 

IF  ( DE*  . I DirTWLAG]  ; A* DSK;  CALL  t INDEX!  ; 

A=M(HL);  A*>  A;  A*>A>  CY  THEN 
DO;  /*  DISK  IN  USE  */ 

[ ERROR]* (A* 3) ; RETURN; 

END: 

IF  ( DE* . C DMT0FLAG] : A*  DSK;  CALL  C INDEX] ; 

A=M( HL) ; A=>  A;  A=>A;  A=>A)  TCY  THEN 

DO;  /x  DISK  NOT  PROTECTED  */ 

[ ERROR] *( A*3) ; RETURN; 

END; 

DE* . [ DMTSKEY] ; A*  DSK;  CALL  [ INDEX4] ; 

STACK*  HL ; BC* ( HL*  C P ARM0  ] ) ; BC=  BC+ 1 ; HL'STACK;  E=  0 ; 
REPEAT; 

IF  (A=M(BC);  IF  ( A: : 0FFH)  ZERO  THEN  A=20H; 

A: : M( HL) ) ! ZERO  THEN 
DO;  r*  KEY  DOES  NOT  MATCH  */ 

[ ERROR]  = ( A* 5 ) ; RETURN; 

END; 

HL*  HL+ 1 ; BC=BC+ 1 ; E=(A=E+1); 

UNTIL  (A:: 4)  ZERO; 

/X  SET  RESTRICTION  BIT  IN  DMIT^’  AG  */ 

DE* . [ DMTSFLAG] ; A=DSK;  CALL  C INDEX] ; 

M(  HL)  = ( A=M(  HL)  \ 03H)  ; 

A* ' R’ ; CALL  UFDATE*CNFG»FILE; 

END  RESTRICT; 

SIZE:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/*  THIS  SYSTEM  CALL  SETS  THE  SIZE  OF  THE  USER’S  SWAP  *■/ 


/*  IMAGE. 

/x  ARGUMENTS: 

/*  ( 1)  FID  * 6 *' 

/x  (2)  PARM  * REQUESTED  SIZE  IN  KILOBYTES  *s 

/x  VALUE:  ERROR  CODE  *s 


✓XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  COMPARE  REQUESTED  SIZE  WITH  MAX  SIZE  */ 

IF  ( A*  [ PARM0] ; A: : 49)  ICY  THEN 

/*  OUT  OF  BOUNDS  - INVALID  CMD  ERROR  1 */ 

DO;  [ERROR] =(  A* 1) ; RETURN;  END; 

/*  COMPARE  REQUESTED  SIZE  WITH  SWAP  FILE  SIZE  */ 

D£= . [ TCT0BOE] ; A*  C TASK] ; CALL  [ INDEX2] ; 

CALL  [GET];  B=0;  C* ( A*<  < [ PARM0] ) ; 

HL=BC+DE;  STACK*  HL ; /*  SAVE  SUM  */ 

DE* . [ TCT0EOE] ; A* [ TASK] : CALL  [ I NDEX2] ; 

CALL  [GET];  BC*BC+1; 

DE* STACK;  /x  RESTORE  SUM  */ 

A=C-E;  A*B — D; 

IF  MINUS  THEN 

/x  OUT  OF  BOUNDS  - INVALID  CMD  ERROR  1 */ 

DO;  [ ERROR]  = ( A* 1 ) ; RETURN;  END; 

/*  DISPLAY  SIZE  MSG  */ 

A*  [ PAHTI0]  ; CALL  [ S IZESMSG]  ; 

/*  UPDATE  TCT  */ 

DE* . ( TCT0S IZE] ; A* [ TASK] ; CALL  [ INDEX] ; 

M( HL) » ( A*<  < [ PARM0] ) ; 

END  SIZE; 

UNPROTECT : PROCEDURE ; 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/*  THIS  SYSTEM  CALL  DELETES  THE  READ  RESTRICTION  AND  x/ 
/*  MEAD/' WRITE  PROTECTION  ATTRIBUTES  FROM  A SPECIFIED  x/ 


/■*  VIRTUAL  DISK  FILE. 

/*  ARGUMENTS : *' 
/*  < 1)  FID  * 7 x/- 
/*  (2)  PARM  * BASE  ADDRESS  OF  PARAMETER  LIST  */ 
r*  BYTE  0:  DISK  NUMBER  (0-31) 
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/*  BYTES  1-4*  PROTECTION  KEY  (0-4  CHARS)  */ 

/*  VALUE:  ERROR  CODE  */ 

/'Jit***************************:****************:*********/ 

IF  ( HL* C PARM0] ; DSK* ( A=M( HL) ) ; A::32>  ICY  THEN 

DOi  /*  DISK  * > 31  */ 

[ ERROR] * ( A=4) : 

RETURN j 

END 

ELSE 

IF  ( HL=  HL+ 1 ; A*M(HL);  A: : 0FFH)  ZERO  THEN 
DO;  KEY  ERROR  *' 

t ERROR] 3 ( A3  5 ) ; 

RETURN; 

END 

ELSE 

DO;  /*  CHECK  IF  DMT* KEY  MATCHES  KEY  */ 

DE=  . C DrTTSKEYl  ; A=  DSK;  CALL  C INDEX4]  ; 

STACK* 3L;  BC*  ( HL*  ( PARM0] ) ; BC*BC+1;  HL* STACK;  E*0 
REPEAT; 

IF  ( A*M( BC) ; IF  ( A: : 0FFH)  ZERO  THEN  A*20H; 

A::M(HL))  'ZERO  THEN 
DO;  /*  DMT* KEY  NOT  * KEY  */ 

(ERROR] *( A=3) ; RETURN; 

END; 

HL*  HL+ 1 ; BC=BC+  1 ; E=(A=E+l); 

UNTIL  (A:: 4)  ZERO; 

END: 

SET  DMT* KEY  * 20H, 20H, 20H, 20H 
DE=  . C DMWKEY:  ; A*  DSK;  CALL  [ INDEX4] ; E=0; 

REPEAT; 

M(  HL) * ( A=  20H) ; HL* HL+ 1 ; E=(A=E+l): 

UNTIL  (A:: 4)  ZERO; 

DE* . C DMT0FLAG] ; A* DSK;  CALL  ( INDEX!  ; 

/*  RESET  BIT  3 AND  4 OF  DMT4FLAG  */ 

M(HL>  = ( A*M(HL>  0 03B)  ; 

A*  ’ ’ ; CALL  UPDATESCNFGSF ILE; 

END  UNFROTF.CT; 


EOF 

/**************»*********  at***********:****:**************/' 

/'********:Me*c:Mi’.******  SERVICE  CALLS  .a:*******************/ 

/************:;c*****************************************/ 


sxxxxxxxxxx-rxx  INTERMODULE  LINKAGE  MACROS  ************/ 


DECLARE  CLOB1  COMMON; 

[ INT  M2B]  [M2B:=060OH] 
t MACRO  INDEX  ’[HEX  M2B  + 3H]  ' ] 

INDEX2  ’(HEX  M2B  + 0DH] ’ ] 

INDEXB  ’[HEX  M2B  + 24H] • ] 

GET  ’ ( HEX  M2B  + 38H] ’ ] 

MOVBUF  ’CHEX  M2B  + 41H]’] 
MINIDISK  ’[HEX  M2B  + 34H] ’ ] 
READ*PRT*BUF  ’ [ HEX  M2B  + 9 EH] ’ ] 
PRT*STAT  ’ GLOB  1(0) ’ ] 

BUF0PTR  " GLOB 1(1)'] 

PARM0  ' GLOBK  10H)  ’ ] 

' GLOB 1 < 1 1H) * ] 

•GLOBK  12H)  ’ ] 

•GLOBK  13H)  • ] 

'GLOBK  14H)  ’ ] 

•GLOBK3FH)  * ] 

•GLOBK23FH)  ' ] 

• GLOBK  240H)  1 J 
TASK  * GLOBK  24  1H)  • ] 

TCT»DM  * GLOB 1( 24 AH) ’ ] 

• GLOB  1 ( 29EH)  1 ] 

'GLOBK  2DEH)  ’ ] 

•GLOBK  39  FH)  • ] 

• GLOBK  3A1H)  ’ ] 

' GLOBK  3A3H)  ' ] 


t MACRO 
(MACRO 
(MACRO 
(MACRO 
(MACRO 
(MACRO 
(MACRO 
(MACRO 
(MACRO 
[MACRO 
[ MACRO 
[MACRO 
[MACRO 
(MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
(MACRO 
[MACRO 
[MACRO 
[ MACRO 
[ MACRO 


PARM1 
DISK 
DRIVE 
ERROR 
MDBUF 
MDSAD0 
MDSAD1 


DMT»BOE 

DMT*EOE 

PRTSROE 

PRT0EOE 

PRT*SEC 
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1 


[ MACRO  VDCO DRIVE  ’ GLOB 1 ( 3 AEH) ' I 
[MACRO  VDC9BOE  ’ GLOB1  ( 3AFH) ’ I 
[MACRO  VDC9E0E9  ' GLOB 1 ( OB 1 Q) ' I 
[ MACRO  VDC9E0E 1 ' GLOB 1 ( 3B2H) ' ] 

[ MACRO  VDC9SECT0R  ’ GLOB  1 ( 3B3H) ’ I 
[MACRO  VDC9TRACK  ’ GLOB l ( 3B4H) ’ I 
[MACRO  VDC9DMA  * GLOB1 ( 3B3H) 1 I 
[ MACRO  PRT9CNTRL  ’ GLOB  1 C 39EH) ’ I 

/xxxxyxxxxxxyyyy  GENERAL  PURPOSE  MACROS  xxxxxxxxxxxxxxx/' 

[ MACRO  READ  ’ 1 ’ ] 

[MACRO  WRITE  ’2’] 

C MACRO  CNTRL9Z  ’ 1AH’ ] 

[MACRO  PRT9RDY  ’ OBOH’ ] 

[MACRO  CNTRL9R  ’ 12H’ ] 

/xyyyxyyxxyxxxyxyx  MODULE  DECLARATION  xxxxxxxxxxxxxxxxxxx/' 
DECLARE  CHAR  DATA  C0)  ; 

/»**x*xx*xxxx***xx  UTILITY  PROCEDURES  xxxxxxxxxxxxxxxxx/' 
READ9BUF : PROCEDURE ; 

/yxyyyxxyyyyyxxxxyyyxxxxxxxyyyyxyxxxxxxxxxxxxxxxxxxxxxx^ 

/*  THIS  PROCEDURE  READS  A SPECIFIED  MINI-DISK  SECTOR  */ 


/■*  INTO  MDBUF  AND  UPDATES  flDSAD.  */ 
/*  INPUT:  BC  - MINI-DISK  SECTOR  NUMBER  */ 
/*  OUTPUT:  ERROR  - ERROR  CODE  */ 
/%  CALLED  BY:  MAP,  UPDATE9CNFGSF ILE  */ 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyxxxxxxxxxxxxxxxxxxxxx/ 
DE*.  [MDBUFI  ; L* [ READ] ; CALL  [MINISDISKIi 
IF  ( A:  '•  0)  IZERO  THEN 

/*  HARDWARE  ERROR  - ERROR  8 */ 

DOs  [ ERROR) * ( Aa 8) ; RETURN:  END; 

[ MDSADOI  = C HL=  BC) i 
END  READ9BUF : 

WRITE9BUF : PROCEDURE: 

./xxyxyxxxxxxxxxyxxxxxxxxxxxxxxxxxxxxxyxxxxxxxxxxyxxxxxx,' 


/*  THIS  PROCEDURE  CHECKS  THE  MODIFICATION  BIT  IN  */ 
/*  VDC* DRIVE  TO  DETERMINE  IF  THE  CONTENTS  OF  MDBUF  x/ 
/*  HAVE  BEEN  ALTERED.  IF  SO,  THE  BUFFER  IS  WRITTEN  TO  */ 
/*  THE  MINI-DISK  AND  THE  MOD  BIT  IS  RESET.  */ 
/*  CALLED  BY:  BUMP,  MAP,  LOGIN,  UPDATE9CNFG9F ILE,  */ 
/x  SELECT8DRIVE  *s 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxxx*xxxxxxxxxxxxxxxx/' 
IF  ( A* < [ VDC9DRI VEI ) !CY  RETURN: 

BC= ( HL=  C MDSADOI ) ; DE=.[  MDBUFI; 

L=( WRITEI : CALL  [ MINIDISK!  ; 

IF  < A ■ : 0)  ’ZERO  THEN 

/*  HARDWARE  ERROR  - ERROR  8 */ 

DO;  [ ERROR! 3 ( A=8) ; RETURN;  END; 

[ VDC«DRIVEI  = ( A=[  VDCSDRIVEI  a 7FH) ; 

END  WRITESBUF ; 

MAP:  PROCEDURE; 

,'XXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXX/ 

/x  THIS  PROCEDURE  CALCULATES  THE  RELATIVE  OFFSET  OF  A */ 
/*  SPECIFIED  VIRTUAL  FLOPPY  DISK  SECTOR  IN  THE  MINI-  */ 
/*  DISK  FILE  AND  THE  BASE  ADDRESS  OF  THAT  SECTOR  IN  */ 

/*  THE  MINI-DISK.  BUFFER  AFTER  THE  FILE  IS  READ.  THEN  */ 
/x  IT  CALCULATES  THE  ACTUAL  MINI-DISK  SECTOR  NUMBER 
/•x  CONTAINING  THE  ADDRESSED  FLOPPY  DISK  SECTOR,  AND  x/ 
/*  COMPARES  IT  V'TH  THE  CURRENT  CONTENTS  OF  MDBUF.  IF  */ 


/x  THE  TWO  ARE  NOT  EQUAL,  THE  OLD  BUFFER  IS  WRITTEN  x/ 
/x  TO  THE  MINI-DISK  AND  THE  NEWLY  CALCULATED  SECTOR  */ 
/*  NUMBER  READ  IN  TO  REFILL  THE  BUFFER.  A COMPARISON  x/ 
/x  IS  ALSO  MADE  BETWEEN  THE  CALCULATED  MINI-DISK  */ 
/*  SECTOR  NUMBER  AND  THE  FILE’S  FOE  VALUE  TO  ENSURE  */ 
/*  THAT  THE  SPECIFIED  VIRTUAL  D[SK  SECTOR  ADDRESS  IS  x^ 
/*  WITHIN  THE  BOUNDS  OF  THE  FILE.  */ 
/*■  INPUT:  VDC9TRACK  - FLOPPY  DISK  TRACK  NUMBER  */ 
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s*  VDC0SECTOR  - FLOPPY  DISK  SECTOR  NUMBER 

/*  OUTPUT:  BC  = 128  * FLOPPY  DISK  SECTOR  SIZE  */ 

/*  HL  * BASE  ADDRESS  OF  FLOPPY  DISK  SECTOR  */ 

s*  IN  BUFFER  */ 

/*  CALLED  BY:  READ0FLOPPY,  WR I TESFLOPP Y */ 


^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
DECLARE  BUFAD  DATA  (0,0); 

DECLARE  SEONR  DATA  (0,0); 

D* ( A- [ VDC»TRACK) ) ; 

E*  ( A*  [ VDC0SECTOR] ) ; 

/*  MULTIPLY  TRACK  # BY  26;  ADD  SECTOR  #;  SUBTRACT  1 */ 
B*0;  CY*0; 

A=<  D;  L=A;  /*  2 * TRACK;  SAVE  IN  L REG  */ 

CY*0;  A*<  A;  s*  4 » TRACK  »/" 

IF  CY  THEN  B=l;  /x  SAVE  HIGH  ORDER  BITS  IN  B */ 

A«A+L;  C=  A;  A*L;  SAVE  2 * TRACK  IN  ACCUM.  */ 

HL=0;  HL=HL+BC;  HL* HL+BC;  HL* HL+BC;  HL* HL+BC; 

HL  NOW  CONTAINS  24  x THE  TRACK  * */ 

B=0;  C= A;  HL* HL+BC;  /*  HL  CONTAINS  26  * TRACK  • */ 

C*E;  HL* HL+BC;  HL*HL~1;  /*  SECTOR  * ADDED  ON  AND  SUB  1 x/- 
/*  DIVIDE  CONTENTS  OF  HL  BY  4 */ 

DE=HL;  s*  SAVE  26  * TRACK  + SECTOR  * -1  */ 

CY=6;  D=  ( A*  > D) ; E*(A=>E); 

CY*0;  D*  ( A*  > D)  ; A*>E; 

B=D;  C=  A;  /*  BC  HAS  (26  * SECTOR  * -1)  / 4 */ 

/*  COMPUTE  BUFFER  OFFSET  */ 

IF  ( A* C VDC6TRACKJ ; A*  A a 01H)  ZERO  THEN 
A*  C VDCBSECTOR)  /*  TRACK  IS  EVEN  */ 

ELSE 

A* [ VDC0SECTOR] , + 1 , + 1 ; /*  TRACK  IS  ODD  */ 

TEST: 

IF  (A: :3>  ICY  THEN 
DO; 

A= A-4; 

GOTO  TEST; 

END; 

L“A-1;  H*0; 

DO  CASE  HL; 

DE=0; 

DE* 128; 

DE*2S6 ; 

DE* 384 ; 

END; 

/x  DE  * RELATIVE  BUFFER  ADDRESS  *s 
BUFAD*  ( HL- . [ MDBUF1 , + DE) ; 

/*  CALCULATE  AND  SAVE  NEW  MIN I -DISK  SECTOR  NR 
SEC NR* ( HL= t VDC0BOEI  + BC)  ; 

✓ * COMPARE  NEW  SECTOR  NR  WITH  VDCSEOE  */ 

A-C VDC0EOE0J-L;  A* C VDCSEOE II  — H; 

IF  MINUS  THEN 

/'»  OUT  OF  BOUNDS  - ERROR  12 
DO;  [ERROR]* (A=l id  ; RETURN;  END; 

/*  COMPAHE  NEW  SECTOR  NR  WITH  MDSAD  */ 

IF  ( A*  C MDSAD0J ; A::L>  IZERO  THEN 
CY*0 

ELSE  IF  ( A* [ MDSAD 1 ] ; A: : H)  IZERO  THEN 
CY*0 

ELSE  CY* 1 ; 

S*  WRITE  OLD  SECTOR  AND  READ  NEW  IF  NECESSARY 
IF  ICY  THEN 

DO;  /*  NOT  EQUAL  */ 

CALL  WRITE0BUF; 

IF  (A*C ERROR]  \ A)  I ZERO  RETURN; 

BC* ( HL=SECNR) ; CALL  PEAD#BUF ; 

IF  (A* [ERROR]  \ A)  IZERO  RETURN ; 

END; 

^x  BET  UP  REGISTERS  FOR  RETURN 
BC* 128;  DE*(  HL* BUFAD) ; 

END  MAP; 

WRITE0PRT0BUF:  PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
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THIS  ROUTINE  IS  CALLED  BY  WRITESPRINTER  WHEN  THE  */ 

print  buffer  located  between  100  - 3©oh  in  memory  */ 


/*  IS  FULL  OR  WHEW  A CONTROL  Z (EOF  INDICATOR)  HAS  */ 
/*  BEEN  WRITTEN  INTO  THE  BUFFER.  IN  BOTH  CASES  THE 
s*  CONTENTS  OF  THE  BUFFER  IS  WRITTEN  ONTO  THE  MINI-  */ 
s*  disk  in  rrrsPRT.  ■*/ 

/*  CALLED  BY:  WRITESPRINTER  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
HL*  C PRTSSEC] ; BC=HL; 

DE* 100H;  L* C WRITE] ; /*  SET  UP  FOR  CALL  TO  MINIDISK  */ 

CALL  [MINISDISK]  ; 

I F < A: : 0)  ! ZERO  THEN 

DO; 

C ERROR]  = ( A=8) ; 

RETURNi 

END; 

HL=[PRTSEOE] i 

IF  ( A* Hi  A: : B)  CY  3 ( A*L;  A: :C)  CY  THEN 
DO;  /*  EXCEEDED  EOE  OF  MTSSPRTSFILE 
[ ERROR) 3 ( A* 12)  ; 

END 

ELSE 

DO; 

BC’BC+1; 

C PRTSSEC] - ( HL=  BC) i 
s*  PRTSSEC  INCREMENTED 

END; 

END  WRITESPRTSBUF; 

/xxxxxxxxxxxxxxxxxx  SERVICE  ROUTINES  xxxxxxxxxxxxxxxxxx^ 
WRITESPRINTER:  PROCEDURE; 

^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

/*  THIS  SERVICE  CALL  IS  MADE  TO  WRITE  CHARACTERS  INTO 


/"*  THE  PRINTER  BUFFER  WHICH  IS  LOCATED  BETWEEN  100  - 
/*  300H  IN  MEMORY.  */ 

ARGUMENTS : */ 

/*  ( 1)  FID  * 1 1 */ 

/*  (2)  PARM  = ASCII  CHARACTER  */ 

s*  VALUE:  ERROR  CODE  */ 


/xxxxxxxxxxxxxxxx* xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

CHAR*  ( A*  E)  ; /*  SAVE  CHARACTER  *s 
IF  ( A*  C PRTSCNTRLI ; A::®)  ZERO  THEN 
DO;  /*  PRINTER  NOT  IN  USE  */ 

IF  ( C PRTSSTAT] * ( A* IN(  BAH) ) ; A:  : [ PRTSRDY] ) T ZERO  THEN 
DO; 

CERRORJ*  (A*  7)  ; 

RETURN; 

END; 

/*  SET  PRINTER  IN  USE  BIT  */ 

[ PRTSCNTRLI * ( A*  C TASK]  \ 80H) ; 

C PRTSSEC] = ( HL*  C PRTSBOE] ) ; 

[ BUFSPTR] * < HL* 1 00H)  ; 

END 

ELSE 

DO;  /"*  CHECK  IF  CURRENT  TASK  OWNS  PRINTER  */' 

B* ( A* A 3 3);  /*  B = TASK  WHICH  HAS  PRINTER  */ 

IF  (A* [TASK];  A: : B)  IZERO  THEN 
DO;  /*  TASK  DOES  NOT  OWN  PRINTER  */ 

[ ERROR] * ( A* II ) ; 

RETURN; 

END 

ELSE 

IF  < A*  [ PRTSCNTRL] ; A*<A;  4*<A)  CY  THEN 
DO;  /*  PRINTER  IS  PRINTING  A FILE  */ 

[ ERROR] * ( A* 1 1 ) ; 

RETURN; 

END; 

END; 

IF  ( A* CHAR;  A: : [ CNTRLSZ] ) !ZERO  3 ( A: : [ CNTRLSR] ) 'ZERO  THEN 
DO;  /*  FILL  BUFFER  */ 

HL*  [ BUFSPTR] ; 

IF  ( A*3 ; A: : H)  ZERO  8 (A=0;  A::L)  ZERO  THEN 
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DO i /*  BUFFER  FULL  - WRITE  TO  DISK  *s 
CALL  WRITEBPRTBBUF; 

C BUFBPTR)  - ( HL*  100H)  5 

END; 

HL*  C BUFBPTR)  ; 

M(  HL) * ( A*  CHAR) ) 

[ BUF0PTR) * ( HL*  C BUF0PTR3 , +1); 

END 

ELSE 

DO;  /*  END  OF  FILE  CONDITION.  SET  UP  FOR  PRINTING  */ 
IF  ( A: : C CNTRLBZ) ) ZERO  THEN 
DOi  EOF  */■ 

HL*  t BUFBPTR)  ; 

M(  HL) * < A*  CHAR) ; 

CALL  VRITEBPRTBBUF; 

END; 

[ PRTSSEC)  = ( HL* [ PRTBBOE) ) ; 

[ BUFBPTR)  » ( HL* 100H) ; 

CALL  [ READBPRTBBUF) ; 

DISABLE; 

C PRTBCNTRL) * ( A* [ PRTBCNTRL)  \ 40H) ; 

/*  START  PRINTING  */ 

OUT(8AH)=(A=0) ; 

ENABLE; 

END; 

ERD  WRITEBPRINTER; 

SELECTBDRIVE:  PROCEDURE; 

/:MI*******»***X***XyX****XX***:**X*XX*******X*K***X*XX**/' 
/"*  THIS  SERVICE  CALL  SELECTS  THE  VIRTUAL  FLOPPY  DISK  */ 


/■*  DRIVE  TO  BE  USED  FOR  SUBSEQUENT  FLOPPY  DISK  */ 

r*  ACCESSES . */ 

/*  ARGUMENTS : */ 

z'*  ( 1)  FID  * 12  */ 

/*  (2)  PARM  * DRIVE  NUMBER  (0-7)  */ 

VALUE:  ERROR  CODE  */ 


/xxxxxxxxxxx*xxxxxxxxxxx**xxxxxx*xxxx**x*xxxxxx***xxxxx/ 
[ DRIVE) « < A*  C PARM0) ) ; 

/*  VALIDATE  DRIVE  NUMBER  */ 

IF  (A: : 8)  ICY  THEN 

s*  DRIVE  NR  > 7 - ERROR  6 *s 
DO;  [ ERROR) *(  A*6) ; RETURN:  END; 

VALIDATE  THAT  DRIVE  IN  USE  */ 

DE= . [ TCTBDM) ; A*  C TASK)  ; CALL  I INDEXB) ; 

DE*HL;  A*  C DRIVE) ; CALL  [INDEX); 

IF  ( A* < M(  HL) ) *CY  THEN 

/*  DRIVE  NOT  AVAIL  - ERROR  10  */ 

DO;  [ ERROR)*  (A* 10) ; RETURN;  END; 

STACK* HL; 

CALL  WRITEBBUF; 

HL* STACK; 

/*  UPDATE  VDC  BLOCK 
C DISK)  * ( A*M(  HL)  8 1FH)  ; 

IF  ( A*  M<  HL)  S 40H)  I ZERO  THEN  /'*  READ  ONLY 

C DRIVE) *(A=[  DRIVE)  \ 40H) ; /*  SET  BIT  6 */ 

DE* . [ DMTBBOE) ; A*  [DISK)  ; CALL  [ INDEX2) ; 

CALL  CGET);  [ VDCBBOE) * ( HL=BC) ; 

DE* . C DMTBEOE) ; A* [DISK);  CALL  [ INDEX2) ; 

CALL  [GET);  [ VDCBEOE0)  = ( HL* BC) ; 

[ VDCBDRIVE)*( A* [DRIVE) ) ; 

END  SELECTBDRIVE; 

SET* DMA:  PROCEDURE; 

/**imm*m**m**mmmm«**m*mm*m*>m/ 
/*  THIS  SERVICE  CALL  SETS  THE  ADDRESS  OF  THE  128  BYTE  */ 
s*  DMA  BUFFER  TO  BE  USED  IN  SUBSEQUENT  VIRTUAL  FLOPPY  */ 


/*  DISK  ACCESSES.  */ 

s*  ARGUMENTS:  x/ 

(1)  FID  * 13  x/ 

/*  (2)  PARM  * DMA  ADDRESS  */ 

s*  VALUE:  ERROR  CODE  */ 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
A* [ PARM0) -0;  A*  [ PARM1 ) — 40H; 
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IF  MI  ITUS  THEN 

/*  OUT  OF  BOU1TDS  - ERROR  12  */ 

DOi  [ ERROR]* (A* 12) ; RETURN;  END; 

[ VDC* DMA] * < HL* [ PARM0 1 ) ; 

END  SET* DMA; 

SET* TRACK:  PROCEDURE; 

^******************************************************/' 
/*  THIS  SERVICE  CALL  SETS  THE  TRACK  NUMBER  TO  BE  USED  *■' 


/*  IN  SUBSEQUENT  VIRTUAL  FLOPPY  DISK  ACCESSES.  */ 

/*  ARGUMENTS : *' 

/*  t 1)  FID  * 14 
/*  (2)  PARM  * TRACK  NUMBER 

✓*  VALUE:  HONE 


A*[PARM6) ; 

IF  (A: : 77)  !CY  THEN 

/*  OUT  OF  BOUNDS  - ERROR  12  *✓ 

DO;  C ERROR) *(A= 12) ; RETURN;  END; 

[ VDCSTRACia  * A ; 

END  SET* TRACK; 

SETtSECTOR:  PROCEDURE; 

/'******************************************************/' 


/*  THIS  SERVICE  CALL  SETS  THE  SECTOR  NUMBER  TO  BE  */ 
✓*  USED  IN  SUBSEQUENT  VIRTUAL  FLOPPY  DISK  ACCESSES.  */ 
/*  ARGUMENTS:  */ 
/*  (1)  FID  * 13  *■'' 
/*  (2)  PARM  * SECTOR  NUMBER  < 1-26)  */ 
/*  VALUE:  ERROR  CODE  *' 


Z******************************************************/' 

A*  I PARM01 ; 

IF  (A:: 27)  ICY  \ (A::«)  ZERO  THEN 
/*  OUT  OF  BOUNDS  - ERROR  12 
DO;  [ERROR] *< A* 12) ; RETURN;  END; 

[ VDC*SECTOR] 3 A; 

END  SET*SECTOR; 

READ0FLOPPY:  PROCEDURE: 

/******************************************************/' 


/*  THIS  SERICE  CALL  SIMULATES  READING  FROM  A FLOPPY 
/*  DISK.  THE  VIRTUAL  DISK  SECTOR  AND  TRACK  SPECIFIED  *s 
/*  IN  THE  VDC  BLOCK  IS  READ  FROM  THE  SPECIFIED  */ 

/*  VIRTUAL  DRIVE  INTO  A 128  BYTE  BUFFER  IN  THE  USER'S  */ 
/*  SWAP  AREA.  *' 

/*  ARGUMENTS : 

/*  (1)  FID  * 16  *' 

/*  (2)  PARM  * NONE  */ 

/•*  DRIVE,  SECTOR,  TRACK.  AND  DMA  ADDRESS  MUST  */ 

/*  HAVE  BEEN  PREVIOUSLY  SET  BY  CALLS  TO  THE  */ 

/*  APPROPRIATE  PROCEDURES.  */ 

/*  VALUE:  ERROR  CODE  */ 


/******************************************************/ 
CALL  MAP; 

IF  (A* [ERROR]  \ A)  IZERO  RETURN; 

DE=HL;  HL= t VDCSDMA] ; CALL  [MOVBUFI; 

END  READ*FLOPPY; 

VRITE*FLOPPY:  PROCEDURE; 

/X^t****************************************************/ 


/"*  THIS  SERVICE  CALL  SIMULATES  WRITING  TO  A FLOPPY  */ 
/*  DISK.  A 128  BYTE  BUFFER  IN  THE  USER  SWAP  AREA  IS  */ 
/*  WRITTEN  TO  THE  VIRTUAL  TRACK.  SECTOR,  AND  DRIVE  */ 
/*  SPECIFIED  IN  THE  VDC  BLOCK.  */ 
/*  ARGUMENTS : *' 
/*  < 1)  FID  * 17  */ 
/*  (2)  PARM  * NONE  */ 
/*  DRIVE,  SECTOR.  TRACK.  AND  DMA  ADDRESS  MUST  */ 
/*  HAVE  BEEN  PREVIOUSLY  SPECIFIED  BY  CALLS  TO  */ 
/"*  THE  APPROPRIATE  PROCEDURES. 

/*  VALUE:  ERROR  CODE  */ 


/******************************************************/ 

IF  <A*[ VDC*DRIVE]  0 40H)  IZERO  THEN  s*  READ  ONLY  DISK  */ 
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f 


DO  i 

[ ERROR)  »( A*2) ; RETURN; 

END; 

CALL  HAP; 

ir  ( A" C ERROR!  n A)  tZERO  RETURN; 

STACK*  HL ; DE*  ( HL= C VDCODMAI ) ; 

HL*  STACK;  CALL  [HOVBUF1 ; 

t VDCODRI VE] * ( A*  C VDCODRI VE1  N BOH) ; /*  SET  BIT  7 */ 

END  WRITEOFLOPPY; 


EOF 
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/'XXXXXXXXXXXXXXXXXXXW********************************/' 

/xxxxxxxxxxxx  TERMINAL  INTERFACE  MODULE  ***********/ 

✓X***************************************************/ 

/•x  */ 

/X  TERMINAL  INTERFACE  MODULE  PROVIDES  THE  MTS  x/ 

/*  INTERFACE  WITH  THE  FOUR  DISPLAY  TERMINALS  */ 

/x  ATTACHED  TO  THE  SYCOR  440  SYSTEM.  THE  MODULE  IS  */ 
/*  SEPARATED  INTO  FIVE  BASIC  SUBMODULES.  EACH  */ 

/X  SUBMODULE  CONTAINS  THE  MACROS  NECESSARY  FOR  */ 

/X  LINKING  WITHIN  THE  TERMINAL  MODULE  AND  FOR  */ 

/X  EXTERNAL  MIS  LINKAGE.  x/ 

/•x  */ 

Cl)  DATA  DECLARATIONS  */ 

THIS  SUBMODULE  PROVIDES  ALL  DECLARATIONS  OF  */ 
THE  DATA  STRUCTURES  UTILIZED  BY  THE  TERMINAL*/ 
MODULE.  x/ 

(2)  UTILITY  PROCEDURES 
THIS  SUBMODULE  CONTAINS  THE  BASIC  UTILITY 
PROCEDURES  WHICH  PROVIDE  COMMON  REGISTER 
MANIPULATION  AND  PROCESSING  REQUIRED  BY 
MANY  PROCEDURES  THROUGHOUT  THE  REMAINDER 
OF  THE  TERMINAL  INTERFACE  MODULE. 

* COMP  ARE#  FTRS  * GET# INDEX 

* GET»VALUE  * STORE# VALUE 

* CONVERT# NUMBRSTOSASC I I 

* MOVESBYTES  * SWAP#CURSOR 

(3)  TERMINAL  INTERFACE  PRIMITIVES 
THIS  SUBMODULE  CONTAINS  THE  PROCEDURES 
PROVIDE  THE  BASIC  TERMINAL  INTERFACE 
FUNCTIONS. 

* BLANK# D I SPLAY  * 

* CHECKSCURSOR  * 

* SCROLL#DISPLAY  * 

* SEND#CLICK  * 

* GET#STATUS»  ADDR 


/X 

/x 

/x 

/X 

/x 

/X 

/x 

/X 

/x 

/X 

/x 

/X 

/X 

/X 

/x 

/* 

/* 

/■* 

/* 

/* 

/X 

/X 

/■* 

/X 

/* 

/X 

/X 

/X 

/X 

/X 

/X 

/X 

/* 

/X 

/X 

/X 

/* 

/X 

/X 

/X 

/X 

/X 

/X 

/* 

/X 

/X 

/X 

/X 


(4) 


X/ 
*/ 
X/ 
*/ 
X/ 
*/ 
X/ 
X/ 
*/ 
*/ 
*/ 

WHICH*/ 
x/ 
*/ 

GET#D I SPLAY# ADDR  */ 
GET#TERM#S  T ATUS  x/ 

SEND#BEEP  x/ 

UPDATE#CURSOR  */ 

x/ 
*/ 


(3) 


KEY  PROCESSING  PROCEDURES 
THIS  SUBMODULE  CONTAINS  THE  PROCEDURES  WHICH*/ 
PROVIDE  THE  BASIC  TERMINAL  INPUT  PROCESSING.*/ 
THEY  ARE  CALLED  TO  PROCESS  EACH  KEY  ENTERED  */ 
AT  A TERMINAL.  THEIR  FUNCTIONS  INCLUDE:  */ 

CHECKING  FOR  AND  CONVERTING  LOWER  TO  UPPER  */ 
CASE  LETTERS  IF  REQUIRED;  CHECKING  FOR  ANY  */ 
KEY  COMMANDS  (WHICH  INCLUDES  ALL  LINE  X/ 

EDITING) ; AND  IF  NOT  A KEY  COMMAND,  */ 

DISPLAYING  THE  INPUT  CHAR  AT  THE  TERMINAL.  */ 
X KEY# COMMAND  X TERM# INPUT#CNTL  */ 

TERMINAL  INTERFACE  SYSTEM  FUNCTIONS  */ 

THIS  SUBMODULE  CONTAINS  THE  PROCEDURES  WHICH*/ 
PROVIDE  THE  PROCESSING  REQUIRED  TO  INTERFACE*/ 
THE  TERMINAL  WITH  THE  REST  OF  THE  MTS  X/ 

MODULES.  IT  PROVIDES  READING  AND  WRITING  */ 

OF  CHARACTERS  FROM/TO  THE  TERMINALS;  */ 

TERMINAL  STATUS  INFORMATION  (E.G.  WHETHER  */ 
THERE’S  INPUT  AVAILABLE  OR  NOT);  AND  DISPLAY*/ 
OF  STATUS  AND  MTS  MESSAGES  ON  THE  TERMINAL  */ 


STATUS  LINE. 

* BL I NK#CURSORS 

x TERMI NAL#STATUS 

* WRITE# TERM INAL 

* MTS# MSG 


x/ 

x CLEAR#STATUS#L I NE  */ 
* READ#TERMINAL  */ 
x STATUS#MSG  */ 
x SIZE#MSG  x/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/XXXXXX  XXX  XXXXXXXXXXX  X XXX*  XXXXX  XXXXXXXXXXXX*  XX  XXXXX  XX/ 
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* 


/'*3ft**M******  TERMINAL  DISPLAY  DESIGN 
/*  */ 

/*  */ 

/*  GENERAL  FORMAT  OF  EACH  TERMINAL  DISPLAY  */ 


/* 


*/ 


/* 

/* 

/s* 

/* 

/S* 

/SIC 

/3|t 

/SIC 

/SIC 

/SIC 

/SIC 

/SIC 

/SIC 

/* 

/SIC 

/SIC 

/SIC 

/Si: 

/s|c 

/SIC 

/SIC 

/* 

/SIC 

/* 

/* 

/* 

/SIC 

/* 

/s|c 

/SIC 

/SIC 

/SIC 

/* 

/SIC 

/sic 

/3|c 

/3|C 

/SIC 

/SIC 

/* 

/SIC 

/* 

/SIC 

/* 

/* 

/SIC 


10 

STATUS  LI  TO 

63  1 

1 1 

10 

D 

63  1 

164 

I 

1271 

1 128 

B 

S 

191  1 

1 192 

0 

P 

233  1 

1296 

F 

L 

319  1 

1320 

F A 

3831 

1384 

E 

Y 

447  1 

1448 

R 

3111 

STATUS 

LIRE 

10 

VFD 

39140  US  47 1 48 

MSG  631 

WHERE 

VFD  - VIRTUAL  FLOPPY  DISK  STATUS  DISPLAY; 

CONTAINS  THE  INFORMATION  ASSOCIATED 
WITH  THE  CURRENT  TERMINAL  USER’S 
VIRTUAL  FLOPPY  DISK  DRIVE  AND  DISK 
NUMBER  ASSIGNMENTS.  (SEE  STATUS*MSG 
PROC  FOR  DETAILS) 

MS  - DISPLAY  OF  THE  MEMORY  SIZE  THE  USER 
HAS  REQUESTED . (SEE  SIZE*MSG  PROC) 
MSG  - DISPLAY  AREA  FOR  MTS  MESSAGES  WHICH 
ARE  DISPLAYED  IN  RESPONSE  TO  A 
SYSTEM  OR  SERVICE  CALL  TO  MTS. 

(SEE  MTS* MSG  PROC) 


DISPLAY  BUFFER 


SIC/ 

SIC/ 

SIC/ 

*/ 

SIC/ 

*/ 

3*/ 

*/ 

SIC/ 

SIC/ 

*/ 

SIC/ 

*/ 

SIC/ 

%/ 

SIC/ 

SIC/ 

SIC/ 

SIC/ 

SIC/ 

*/ 

SIC/ 

Sic/ 

SIC/ 

3|C/ 

SIC/ 

SIC/ 

SIC/ 

Sic/ 

SIC/ 

3|C/ 

SIC/ 

Sic/ 

SIC/ 

*/ 

3*/ 

SIC/ 

3|C/ 

SIC/ 

*/ 

SIC/ 

*/ 

*/ 

*/ 

SIC/ 

SIC/ 


/*  THE  DISPLAY  BUFFER  IS  VIEWED  AS  A SINGLE  */ 
/*  BUFFER  FROM  0 TO  3 12  BYTES  IN  LENGTH.  THERE  ARE  */ 
/*  FOUR  DISPLAY  BUFFER  POINTERS  WHICH  PROVIDE  THE  #/ 
/*  CONTROL  OF  INPUT  FROM  AND  OUTPUT  TO  THE  TERMINAL  */ 
/*  DISPLAY.  THESE  POINTERS  .ARE:  CURRENTSL INE;  */ 
/*  CURSOR;  NEXT* CHAR;  AND  END* l BUFF.  */ 
/*  EACH  POINTER  UTILIZES  TWO  BYTES  OF  STORAGE  TO  */ 
/*  ACCOMMODATE  A RANGE  IN  VALUE  FROM  0 TO  312.  */ 
/*  IN  ADDITION  TO  THESE  POINTERS,  THERE  IS  A */ 
/*  TERMINAL  STATUS  BYTE,  CALLED  TERMSSTATUS , */ 
/*  ASSOCIATED  WITH  EACH  TERMINAL.  IT  IS  SET  TO  */ 
/*  ONE  OF  THREE  VALUES:  INPUTSWAITING;  */ 
/*  ITTS*CMD*  READY;  I BUFF* EMPTY.  THESE  ARE  THE  */ 
/*  PRIMARY  DATA  STRUCTURES  PROVIDING  TERMINAL  I/O  */ 
/*  CONTROL.  */ 
/*  */ 
/Sic  the  PRIMARY  SYCOR  HARDWARE  CHARACTERISTIC  WHICH  */ 
/*  AFFECTED  THE  MTS  TERMINAL  INTERFACE  WAS  THE  */ 
/*  RELATIVELY  SLOW  MINI-DISK  ACCESS  TIMES.  THIS  HAS*/ 
/*  A MAJOR  IMPACT  WHEN  TRYING  TO  DESIGN  AN  */ 
/*  INTERACTIVE  TIMESHARED  SYSTEM.  IN  ORDER  TO  */ 
/*  PROVIDE  REASONABLE  INTERACTIVE  RESPONSE  TIMES  */ 
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/*  TO  USER  ACTIONS,  THE  TERMINAL  INTERFACE  */ 
/*  MODULE  PROVIDES  ALL  LINE  EDITING  FEATURES  FOR  */ 
/*  THE  USER  PRIOR  TO  TRANSFER INC  ANY  DATA  TO  THE  */ 
/*  USER’S  PROGRAM.  (SEE  KEY#COMMAND  PROC)  */ 
/*  THE  TERMINAL  DISPLAY  DESIGN  UTILITZES  TWO  */ 
/*  SEPARATE  BUFFERS  TO  PROVIDE  THE  USER  WITH  THE  */ 
/*  CAPABILITY  OF  CONTINUING  TO  ENTER  DATA  PRIOR  */ 
/*  TO  THE  USER’S  PROGRAM  BEING  SWAPPED  IN  TO  */ 
/*  PROCESS  THE  PREVIOUS  INPUT  LINE.  */ 
/*  THE  FIRST  BUFFER  IS  CALLED  THE  ’CURRENT  LINE’  */ 
/*  AND  CONTAINS  THE  INPUT  DATA  WHICH  IS  CURRENTLY  */ 


/*  BEING  ENTERED  BY  THE  USER.  THE  CURRENT  LINE  CAN  */ 
/*  RANGE  FROM  « TO  512  BYTES  IN  LENGTH.  THIS  IS  THE*/ 
/*  DATA  THAT  IS  AFFECTED  BY  ANY  LINE  EDITING  COMMAND*/ 
/*  ENTERED  BY  THE  USER.  */ 
/*  THE  SECOND  BUFFER  IS  THE  INPUT  LINE  OR  BUFFER.  */ 
/*  THE  CURRENT  LINE  BECOMES  THE  INPUT  LINE  WHENEVER  */ 
/*  A CARRIAGE  RETURN  OR  ERROR  RESET  (MTS  COMMAND  */ 
/*  KEY)  IS  ENTERED.  THIS  ACTION  ALSO  ESTABLISHES  */ 
/*  A NEW  CURRENT  LINE.  THE  INPUT  LINE  CONTAINS  THE  */ 
/*  THE  DATA  WHICH  IS  TRANSFERRED  TO  THE  USER  PROGRAM*/ 


/*  WHEN  REQUESTED.  THUS  THERE  CAN  BE  AN  INPUT  LINE  */ 
/*  AND  A CURRENT  LINE  ESTABLISHED  AT  ONE  TIME.  */ 
/*  THE  CURRENT  CURSOR  POSITION  ALWAYS  SPECIFIES  */ 
/*  WHERE  THE  NEXT  CHARACTER  WILL  BE  ENTERED,  ON  */ 
/*  INPUT,  AND  WHERE  THE  NEXT  CHARACTER  WILL  BE  */ 
/*  DISPLAYED  DURING  OUTPUT.  */ 
✓*  */ 
/*  the  FOLLOWING  IS  AN  EXAMPLE  OF  POINTER  */ 
/*  MANIPULATION  DURING  INPUT:  */ 
/*  INITIALIZATION  OR  CLEAR  SCREEN  CMD:  */ 
/*  ALL  POINTERS  ARE  SET  TO  ZERO  -AND  */ 
/*  TERM*STATUS  * INPUT  BUFFER  EMPTY.  */ 
/*  USER  ENTERS  DATA  - "SAMPLE  INPUT  DATA":  */ 
/*  CURRENTSLINE  POINTS  TO  THE  STARTING  POSITION*/ 
/*  AND  CURSOR  ALWAYS  POINTS  TO  THE  NEXT  */ 
/*  POSITION  TO  FILL.  NOTE  THAT  AT  THIS  POINT  */ 
/*  ONLY  CURSOR  BAS  BEEN  MODIFIED.  FOR  THE  */ 
/*  INPUT  DATA  ABOVE  IT  WOULD  BE  POINTING  TO  */ 
/*  DISPLAY  BUFFER  POSITION  17.  */ 
/*  USER  TERMINATES  CURRENT  LINE  ( I.E.  ENTERS  CR  OR  */ 
/*  MTS*CMD) : */ 
/*  END* I BUFF  IS  SET  TO  CURRENT  CURSOR  POSITION.*/ 
/*  CURSOR  IS  SET  TO  LEFT  MOST  POSITION  OF  NEXT  */ 
/*  LINE  ON  DISPLAY.  */ 
/*  CURRENT*L I NE  IS  SET  TO  NEW  CURSOR  POSITION.  */ 
/*  TERM*STATUS  IS  SET  TO  INPUT  WAITING.  */ 
/*  */ 


/*  THE  RESULTING  POINTER  POSITIONS  ARE  SHOWN  FOR  THE*/ 
/*  SAMPLE  INPUT  DATA  AND  CR  CHARACTERS  ENTERED.  */ 
/*  (WHERE  * = CURRENT  CURSOR  POSITION)  */ 


/*  */ 

/*  NC  EIB  */ 

/*  */ 

/*  I SAMPLE  INPUT  DATA  I */ 

/*  */ 

/*  I*  I */ 

/*  */ 

CL  */ 

/*  */ 


/*  THE  SAMPLE  INPUT  DATA  IS  NOW  AVAILABLE  FOR  THE  */ 
/*  USER’S  PROGRAM  WHEN  IT’S  TIMESLICE  COMES  UP.  */ 
/*  THE  NEXTSCHAR  (NC)  POINTER  SPECIFIES  THE  NEXT  */ 
/*  CHARACTER  TO  BE  READ  AND  RETURNED  TO  THE  USER  */ 
/*  PROGRAM.  WHEN  NEXT* CHAR  = END* I BUFF , A CARRIAGE  */ 
/*  RETURN  (CR)  IS  RETURNED  TO  THE  CALLING  USER  */ 
/*  PROGRAM.  */ 
/*  THERE  ARE  THREE  OCCASIONS  WHEN  THE  NEXTSCHAR  */ 
/*  POINTER  IS  RESET  EQUAL  TO  THE  CURRENTSLINE  */ 
/*  POINTER:  */ 
/*  (1)  FOR  A CLEAR  SCREEN  COMMAND.  */ 
/*  (2)  WHEN  READ*TERM I NAL  PROC  DETECTS  THAT  THE  */ 
/*  END  OF  THE  INPUT  BUFFER  HAS  BEER  REACHED.  */ 
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/*  (3)  WHEN  WRITE*TERMINAL  PROC  OUTPUTS  CHARACTERS  */ 
/*  TO  THE  TERMINAL  FROM  THE  USER’S  PROGRAM.  */ 
/■*  */ 
/*  THE  OUTPUT  OF  DATA  FROM  THE  USER’S  PROGRAM  TO  */ 
/*  THE  TERMINAL  RESULTS  IN  THE  FOLLOWING:  */ 
/■*  (1)  THE  CHARACTER  IS  DISPLAYED  AT  THE  CURRENT  */ 
/*  CURSOR  POSITION.  */ 
/*  (2)  THE  CURSOR  POSITION  IS  INCREMENTED.  */ 
/*  (3)  THE  CURRENT* LINE  AND  NEXTSCHAR  POINTERS  ARE  */ 
/■*  SET  EQUAL  TO  THE  NEW  CURSOR  POSITION.  */ 
/*  C 4)  THE  TERMINAL  STATUS  IS  SET  TO  EMPTY.  */ 
/*  */ 
/*  */ 
/*  ANOTHER  DESIGN  CONSIDERATION  WAS  THE  REQUIREMENT  */ 
/*  FOR  THE  TERMINAL  MODULE  TO  PROVIDE  A BLINKING  */ 
/*  CURSOR  DISPLAY  AT  EACH  TERMINAL.  THIS  REQUIRED  */ 
/*  SPECIAL  PROCESSING  TO  ENSURE  THAT  THE  CURSOR  */ 
/*  CHARACTER  (05FH)  DID  NOT  GET  LOST  DURING  THE  */ 
/*  CURSOR  UPDATE  AND  MANIPULATION  FUNCTIONS  */ 
/*  ACCOMPLISHED  BY  THE  KEY  PROCESSING  AND  SYSTEM  */ 
/*  FUNCTION  SUBMODULES.  CHECKSCURSOR  PROC(  PRIMITIVE  */ 
/*  SUBMODULE)  PROVIDES  THIS  FUNCTION.  */ 
/*  */ 
/*  */ 


/at***********************************:****************/' 


/X***************************************************/ 

/**»**  TERMINAL  INTERFACE  DATA  DECLARATI ONS  *******/ 

/**XXXXX**X:*X*XX:***:*X*X:*XXX;*X**X:S:J:x*XX:*X*:t::»:***:|c*:*:*X**/ 


[MACRO  I BUFF* EMPTY  ’0’  I 
[MACRO  CURSORSCHAR  ’ 5FH’ ] 


/'**w*xw****XX*********:*:«*:K*********XK****X***********/ 
/«**»****  TERMINAL  INTERFACE  DECLARATIONS  ********/ 

/*  ASCII  - CONTAINS  DATA  FOR  MATRIX  CODE  TO  ASCII*/ 

/*  CONVERSION.  */ 

DECLARE  ASCII  DATA  < 1EH, 1CH, 1BH, 3DH. 3BH, 29H, 28H, 7FH, 

26H, 3DH, 25H, 24H, 23H, 40H, 2 1H. 2AH. 0AH, 0CH, 0BH. 0A0H, 

0DH, 30H, 4FH. 13H, 33H, 39H, 54H, 32H, 43H, 37H, 3 1H. 49H, 

0DH, 9 , 3 1H. 9 . 22H, 3 AH, 4CH, 0A3H, 4AH, 48H, 47H, 46H, 44H, 33H, 
4 1H, 4BH, 0FFH, 30H, 20H. 0A3H, 0A2H, 3FH, 3 EH, 3CH, 4DH, 4 EH, 
42H, 36H, 43H, 38H. 3 AH, 0FFH, 

0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 7FH, 0FFH. 0FFH, 
0FFH, 0A4H. 0FFH, 0FFH, 0FFH, 0FFH, OFFH, 0FFH, 0FFH, OA0H, 
0DH, OFFH, OFFH. 13H, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 

OFFH, OFFH, OFFH, OFFH, OFFH, 09 , OFFH. OFFH. OFFH, 0A5H, 

OFFH, OFFH. OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
20H, 0A3H, 0A2H, OFFH, OFFH. OFFH, OFFH, OFFH, OFFH,  OFFH, 
OA1H, OFFH, OFFH, OFFH, 

OFFH, OFFH, OFFH, 3FH. OFFH. 7DH. 7BH. 7FH, OFFH, 7EH, 3CH, 
0A4H, 60H, 3EH, 7CH, OFFH, OFFH. OFFH. OFFH, 0A0H, ODH, 
lOE.OFH, 1SH, 13H. 19H, I4H, 12H.03, I7H, 1 1H.09,60H, 

5EH, 7CH, 09 , OFFH. OFFH, OCH. 0A3H, OAH, 08, 07 ,06.04, 

I3H, 0 1 , OBH, OFFH, 7DH, 20H, 0A3H. 0A2H, OFFH, OFFH, OFFH, 

ODH, OEH, 02 , I6H.03. I8H. I AH, OFFH. 

39H, 38H, 37H, 2DH. 2BH, 30H, 39H, 7FH. 37H, 36H. 33H, 34H, 

33H. 32H, 3 IH, 38H, 36H. 33H, 34H, 0A0H, ODH. 70H, 6FH, 15H, 

73H, 79 H, 74H, 72H, 63H, 77H, 7 1H, 69H. 33H, 32H. 3 1H. 09 , 

27H, 3BH, 6CH. 0A5H, 6 AH, 68H, 67H, 66H, 64H, 73H, 6 1H, 6BH, 
OFFH. 30H, 20H. 0A3H, 0A2H, 2FH, 2EH. 2CH. 6DH, OEH, 62H, 

76H,  63H.  78H.  7 AH,  OFFH)  ; 

^**x*xx*x*xxxx**xx**x*x*x*xx*x****«*xxx****x*****xxxx/ 

/*  STATUS*BASE  - START  OF  STATUS  LINE  AT  EACH  TERM  */ 

/*  DISPLAY*BASE  - START  OF  DISPLAY  LINES  */ 

/XXXX************************************:************/ 

DECLARE  STATUS*BASE  DATA 
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( 00H, 07H, 40H, 09H, 80H, 0BH, 0C0H, 0DH) ; 
DECLARE  D I SPLAYSBASE  DATA 

( 40H, 07H, 00H, 09H, OC0H, 0BB, O0H, 0EH) ; 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
MTS*MESSAGE  - DATA  VECTOR  CONTAINING  ALL  THE  MTS  */ 
/x  MESSAGES  WHICH  MAY  BE  DISPLAYED  IN  */ 


/*  THE  MTS  MSG  FIELD  OF  THE  STATUS  */ 
/x  LINE.  */ 
/*  SIZE*MESSAGE-  DATA  VECTOR  CONTAINING  THE  TEXT  */ 
/x  PORTION  OF  THE  SIZE  MSG  FIELD  OF  */ 
/*  THE  STATUS  LINE.  */ 


/XXXXXXXXXXXXXXXXXXXX********************************/ 

DECLARE  MTS0MESSAGE  DATA  ( * 


• INVALID  CMD  DISK  NOT  AVAIL' , * DISK  IN  USE 

’ DISK  NR  ERROR’,’  KEY  ERROR  ’,’  DRIVE  LTR  ERROR’, 
’ PRINTER  NOT  RDY' , ’ HARDWARE  ERROR  ’ , ’ TASK  DELETED  ’ , 
’ DRIVE  NOT  AVAIL’)  ; 


DECLARE  SIZE* MESS AGE  DATA  (’K  MTS  ’); 


/X  XXXXXXXXXXXXXXXXX  X/ 

/*  THE  NEXT  FOUR  DECLARATIONS  PROVIDE  THE  POINTERS  */ 
/*  UTILIZED  TO  CONTROL  THE  INPUT/OUTPUT  AT  EACH  */ 
/x  TERMINAL.  */ 
/x  CURSOR  - SPECIFIES  THE  CURRENT  ADDRESS  WHERE  THE  */ 
/*  CURSOR  IS  TO  BE  DISPLAYED.  */ 
/*  CURRENT* LINE  - ADDRESS  WHICH  POINTS  TO  INITIAL  BYTE  */ 
/*  OF  CURRENT  USER  INPUT  LINE.  THIS  LINE  HAS  */ 
/*  NOT  YET  RECEIVED  A ’ CR’  AND  THUS  IS  NOT  YET*/ 
/*  CONSIDERED  AN  INPUT  BUFFER.  */ 
/*  NEXTSCHAR  - POINTS  TO  NEXT  CHAR  TO  BE  PROCESSED  FROM*/ 
/*  THE  INPUT  BUFFER.  AN  INPUT  IS  DEFINED  AS  A */ 
/*  STRING  OF  ASCII  CHARACTERS  (FROM  1 TO  512)  */ 
/*  WHICH  HAS  BEEN  TERMINATED  BY  A ’ CR’  OR  */ 
/x  ’ MTS#CMD’  KEY  BY  THE  USER.  */ 
/*  END* I BUFF  - POINTS  TO  BYTE  POSITION  IN  INPUT  BUFFER  */ 
/*  WHERE  ’CR’  OR  ’ MTSSCMD'  WAS  RECEIVED.  */ 
/x  ******************/ 


DECLARE  CURSOR  (8)  BYTE  INITIAL(0, 0,0, 0,0, 0,0,0) 
DECLARE  CURRENTSLINE  (8)  BYTE  IN ITI ALC 0 , 0 , 0 , 0 , 0 , 0, 0 . 0) 
DECLARE  NEXTSCHAR  (8)  BYTE  IN  ITI.ALC  0 , 0 , 0, 0 , 0 , 0 . 0 , 0) 
DECLARE  END3IBUFF  (8)  BYTE  IN ITI AL( 0 , 0 , 0, 0 , 0 . 0 , 0 , 0) 

/*  CAPITALIZE  - SET  TO  ONE  IF  TERMINAL  IN  CAP  MODE  */ 


DECLARE  CAPITALIZE  (4)  BYTE  INITIAL  (1,1.  1,1); 


/*  TERM*STATUS  - CONTAINS  THE  CURRENT  STATUS  OF  */ 

/*  EACH  TERMINAL’S  INPUT  BUFFER.  */ 

/*  EITHER  INPUT  WAITING;  */ 

/*  MTS  CMD  READY;  OR  I BUFF  EMPTY.  */ 

DECLARE  TERMSSTATUS  (4)  BYTE  INITIAL  (t IBUFF8EMPTYI  , 

[ IBUFFSEMPTY] , [ I BUFF* EMPTY]  , C IBUFF8EMPTY1  ) ; 

/*  SWAPSPOS  - FOR  EACH  TERMINAL  THERE  IS  A ONE  BYTE  */ 
/*  SAVE  AREA  WHICH  IS  USED  DURING  CURSOR  */ 

/*  BLINKING  PROCESSING  */ 

DECLARE  SWAPSPOS  (4)  BYTE  INITIAL  ( [ CURS0R3CHARI , 

[ CURSORSCHARJ , I CURSORSCHAR]  , C CURSORSCHAR] ) ; 

EOF 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/***  TERMINAL  INTERFACE  UTILITY  PROCEDURES  xxxxxxx/ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


(MACRO  TRUE  'OFFH’I 
[MACRO  FALSE  ’0’  I 
[ MACRO  SWAP*POS  'IIFDH’I 
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COMPARESPTRS : PROCEDURE; 

/**X***X****X*X******X*X*X*****X*************»**X**#*/ 

/*  COMPARES  TWO  POINTERS  (2  BYTES  EACH)  TO  DETERMINE*/' 


/*  IF  THEY  ARE  EQUAL.  */ 

/*  INPUT:  DE  - ADDRESS  OF  FIRST  PTR  */ 

/*  HL  - ADDRESS  OF  SECOND  PTR  *✓ 

/*  OUTPUT:  A - TRUE  IF  EQUAL.  FALSE  OTHERWISE.  */ 

/*  CALLED  BY:  KEYSCOMMAND;  RE AD# TERM INAL;  */ 


Z*****:****************#******:************************/ 

CY=0; 

IF  ( A=M(  DE) — M(  HL) ) !ZERO  THEN 
A=  I FALSE] 

ELSE 

DO; 

DE=  DE+ 1 ; HL=HL+ 1 ; 

IF  ( X- M(  DE) — M(  HL) ) !ZERO  THEN 
A* [FALSE] 

ELSE 

A=  C TRUE] ; 

END; 

END  COMPARESPTRS ; 

CONVERTS NUMBR#TO#ASC 1 1 : PROCEDURE ; 

/'*x****¥***x*¥****x***x:*x*xxx********¥**»:**xx::icx*x***x,^ 

/*  CONVERTS  THE  SPECIFIED  NUMBER  TO  A DISPLAYABLE  */ 


/*  TWO  DIGIT  DECIMAL  NUMBER  (MAX  VALUE  IS  99).  */ 
/*  INPUT:  A - NUMBER  TO  BE  CONVERTED.  */ 
/"*■  OUTPUT*.  B - LEFT  MOST  DIGIT  TO  BE  DISPLAYED.  *s 
/*  C - RIGHT  MOST  DIGIT  TO  BE  DISPLAYED.  */ 
/*  CALLED  BY:  SIZESMSC;  STATUS#MSG;  */ 


/in**:**:*******:*!*****:#************************:*:******:*:*,/- 

B=0;  C=  A; 

DO  WHILE  (A: : 10)  PLUS: 

B=  B+  1 ; 

C=<  A«C-l«)  *. 

END; 

C=( A=A+30H)  ; 

B= ( A=  B+30H) ; 

END  CON VERTS NUMB RSTOSASC I I : 


GETS  INDEX:  PROCEDURE; 

^XXXJIIX***********************:**************:**********// 


/*  USED  TO  GET  THE  INDEX  INTO  AN  ADDRESS  ARRAY  BY  */ 
/*  COMPUTING  THE  OFFSET  FROM  A GIVEN  BASE  ADDRESS.  */ 
/*  INPUT:  A - OFFSET  VALUE  (NORMALLY  THE  TASK  OR  */ 

/*  TERMINAL  NUMBER) . */ 

/*  HL  - BASE  ADDRESS  */ 

OUTPUT:  DE-  ARRAY  OFFSET  */" 

/*  HL-  ARRAY  OFFSET  ( HL=DE)  */ 

/%  BC-  COMPUTED  OFFSET  */ 

CALI, ED  BY:  SCROLLSD ISPLAY;  UPDATESCURSOR;  *■/ 

/*  KEYSCOMMAND;  TERMS INPUTSCNTL;  */ 

/**  RE  ADS  TERM  I NAL ; WRITESTERMINAL  */ 

/XXX******X*****X*X***X***XX*XX**********X********X**/ 

CY=0;  B=0; 

C= ( A=  < < A) ; /*  SET  ADDRESS  OFFSET  TO  0FFSET*2  */ 

HL=HL+BC;  DE=HL; 

END  GETS  INDEX; 


CETS VALUE:  PROCEDURE; 

/****************************************************/ 


r*  GETS  A 2 BYTE  VALUE  FROM  MEMORY.  */ 

/■*  INPUT:  DE  - ADDRESS  OF  2 BYTE  VECTOR;  THE  */ 

/*  CONTENTS  ARE  TO  BE  STORED  IN  THE  */ 

/"*  HL  REGISTER. 

/*  OUTPUT:  HL  - CONTENTS  OF  2 BYTE  VECTOR  */ 

/*  DE  - ADDRESS  OF  THE  HIGH  ORDER  BYTE 

/*  CALLED  BY:  SCROLLSD ISPLAY;  UPDATESCURSOR;  */ 
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KEY#COMMAND;  READ# TERMINAL;  */ 

'*  WRITE#TERMINAL;  GET»D ISPLAY#ADDR  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
L*<  A“M<  DE) ) ; DE3  DE+  t ; H=(  A*M( DE) ) ; 

END  GET# VALUE ; 


STORE# VALUE:  PROCEDURE; 

/XXXXXXXXX*XX*XXXXXX**X*XXX***XXXXXXXX»XXX*X*XXXXX*XX/ 


/*  STORE  A 2 BYTE  VALUE  INTO  MEMORY.  */ 
/*  INPUT:  HL  - VALUE  TO  BE  STORED  INTO  MEMORY  */ 
'*  DE  - ADDRESS  OF  HIGH  ORDER  BYTE  */ 
/*  CALLED  BY:  UPDATE#CURSOR;  KEYSCOMMAND;  */ 
'*  RE  AD#  TERM  INAL;  WRITE#TERMINAL;  */- 
'*  GET#DISPLAY#ADDR;  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*/ 
M(DE)3(A3H);  DE3  DE- 1 ; M(DE)  = (A=L); 

END  STORE# VALUE; 


MOVE#BYTES:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
'*  MOVES  BYTES  OF  DATA  FROM  ONE  MEMORY  LOCATION  TO  */ 


/*  ANOTHER.  */ 

/*  INPUT:  BC  - NUMBER  OF  BYTE  TO  BE  MOVED.  */ 

'*  DE  - STARTING  MEMORY  ADDRESS  TO  MOVE  *s 

'*  BYTES  TO  (DESTINATION).  %/ 

/*  HL  - STARTING  MEMORY  ADDRESS  TO  MOVE  */ 

/*  BYTES  FROM  ( SOURCE) . */ 

CALLED  BY:  SIZESMSG;  MTS»MSG;  */ 


/x*x*xxxxxxxxxx**x*xxxxx*x*xx*x*xx*xxxxx**x*xx*xxx**x/ 

REPEAT; 

M(  DE)  =(  A=M(  HL) ) ; 

DE3 DE+ 1 ; HL- HL+ 1 ; 

BC*BC-1;  A=0; 

UNTIL  ( A: : B)  ZERO  3 (A: :C)  ZERO; 

END  MOVE# BYTES; 

SWAP#CURSOR:  PROCEDURE; 

/*******x*********x***************************x*x****/ 


SWAP  THE  SPECIFIED  TERMINAL’S  CURRENT  CURSOR  */ 
/*  POSITION  CHAR  WITH  THE  SWAP#POS  CHAR.  */ 

INPUT:  A - TERMINAL  NUMBER  */ 

'*  HL  - DISPLAY  ADDRESS  OF  CURSOR  POSITION 

/*  CALLED  BY:  BLINK#CURSORS;  CHECKSCURSOR;  */ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
DE*HL:  /*  SAVE  DISPLAY  ADDRESS  */ 

B=0;  C3  A; 

HL3  C SWAPSPOSl  +BC ; /■*  GET  SWAP  ADDRESS 

B3  < A3  M(  DE) ) ; SWAP  */ 

M(  DE)3(A3M<  HL))  ; 

M(  HL)  3 < A3  B)  ; 

END  SWAP#CURSOR; 


EOF 

/****************************************************/ 
/xxxxxxxx  TERMINAL  INTERFACE  PRIMITIVES  xxxxxxxxxxxx/ 

/#***#******X*****X*********X****XX*******X**********/ 


C MACRO  TRUE  ’ 0FFH’ I 
( MACRO  FALSE  ’O'  ] 
(MACRO  BLANK  ’20H’  J 
(MACRO  I BUFF# EMPTY  ’O’  ] 
C MACRO  DISPLAY#SIZE  ’512’  I 
(MACRO  TERM#PORT  ’03FH’ I 
( MACRO  CURSOR#CHAR  ’03FH’] 


/'x***************************************************/ 
/*«X*X**X«XX  INTERNAL  LINKAGE  MACROS  xxxxxxxxxxxxxx/' 
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[ I NT  TB) 

[TB  : = 

1000H) 

[MACRO 

STATUS *B AS E 

’[HEX 

TB 

+ 

0106H) 

[MACRO 

DISPLAY*BASE 

* [HEX 

TB 

♦ 

01 1 IH1 

[MACRO 

CURSOR 

’[HEX 

TB 

+ 

01D5H) 

[MACRO 

CURRENT*LINE 

’[HEX 

TB 

+ 

01DDH) 

[MACRO 

NEXT*CHAR 

’ [HEX 

TB 

+ 

01E5H) 

[MACRO 

END* I BUFF 

•[HEX 

TB 

+ 

01EDH) 

[MACRO 

TERM*STATUS 

’[HEX 

TB 

01F9H) 

[MACRO 

GET*  INDEX 

’[HEX 

TB 

+ 

024CH) 

[MACRO 

GET* VALUE 

•[HEX 

TB 

+ 

0259H) 

[MACRO 

STORE*VALUE 

•(HEX 

TB 

0262HJ 

[ MACRO 

SWAP*CURSOR 

•[HEX 

TB 

027EH) 

BLANKS D I SPLAY : PROCEDURE; 

/afc^cafKaicafKafexcafKafcajca^cafcafcafcaicaicifcsic^cJicsfcaicafc^sfcafca^^afccic^sfca^c^^^fcafcajc^sfc^^a^^cafcsfcait^csjcafta^sfc^ 


/x  PLACES  BLANKS  INTO  THE  INDICATED  AREA  OF  A 
/"*  TERMINAL  DISPLAY. 


/*  INPUT:  BC 
/*  DE 
/*  HL 
/■*  CALLED  BY: 
/* 


x/ 

*/■ 

*/ 

x/ 

*/ 

*/ 

x/ 


STARTING  ADDRESS  (RANGE  0 TO  511) 
NUMBER  OF  BYTES  TO  SET  TO  BLANK 
BASE  ADDRESS 

KEY*COMMAND;  SCROLLSDISPLAY; 
CLEARSSTATUSSLINE;  MTS* MSG; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

HL=HL+BC; 

REPEAT; 

M(  HL)  » ( A=  [ BLANK) ) ; 

HL- HL+ 1 ; 

DE=  DE- 1 ; A=0; 

UNTIL  ( A: : D)  ZERO  3 (A::E)  ZERO; 

END  BLANK* D I SPLAY ; 


GET*D ISPLAY*ADDR:  PROCEDURE; 
,'**:****;*****:****»************************************/ 
/x  GETS  A MEMORY  ADDRESS  IN  THE  DISPLAY  BUFFER  US  TNG*/' 
/*  THE  DISPLAY  BUFFER  PTR  AS  OFFSET  FROM  THE  DISPLAY*/" 


/*  BASE  ADDRESS.  *' 

/x  INPUT:  BC  - TERMINAL  NUMBER  OFFSET.  */ 

/*  DE  - ADDRESS  OF  DISPLAY  BUFFER  PTR  */ 

/*  OUTPUT:  HL  - MEMORY  ADDRESS  IN  DISPLAY  BUFFER.  x/ 

/x  BC  - DISPLAY  PTR  VALUE.  */ 

/*  CALLED  BY:  TERM* I NPUT*CNTL ; KEYSCOMMAND;  */ 

/x  BL I NK*CURSORS ; READSTERMINAL;  */" 

/*  WRITE* TERM INAL;  *' 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
DECLARE  PTRC2)  BYTE; 

CALL  C GET*VALUE1 ; 

PTR=HL;  /"*  SAVE  DISPLAY  PTR  VALUE  */ 

DE-(HL»tDISPLAY*BASE)+BC) ;/*GET»VALUE  PARAMETER  x/ 
BC=(HL-PTR);  /*  GET  DISPLAY  PTR  VALUE  */ 

CALL  C GET*VALUE1 ; /X  GET  DISPLAY  BASE  *s 

HL=HL+BC ; /*  GET  DISPLAY  ADDRESS  */ 

END  GET*DISPLAY*ADDR; 


CHECK* CURSOR:  PROCEDURE; 

r ****************************************************/ 
/*  PRIOR  TO  CHANGING  THE  CURRENT  CURSOR  POSITION  OR  */ 
/*  DISPLAYING  A CHARACTER  AT  THE  CURRENT  CURSOR  POS,*/ 


/*  A CHECK  IS  ALWAYS  MADE  TO  ENSURE  THAT  THE  */ 
/*  CURRENT  DISPLAY  IS  A DATA  CHARACTER  AND  NOT  THE  */ 
/*  CURSOR  ITSELF  (I.E.  5FH) . IF  IT  IS  THE  CURSOR  */ 
/*  A SWAP  IS  MADE.  */ 
/*  INPUT:  A - TERMINAL  NUMBER  */ 
/*  CALLED  BY:  KEY*COMMAND ; TERM* INPUT*CNTL;  */ 
/*  WRITE*  TERM  INAL;  */" 


/S***************************************************/ 

DECLARE  T BYTE; 

T*A;  HL* t CURSOR) ; 

CALL  C GET* INDEX); 
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CALL  GET»D I SPLAYS ADDRi 

IF  (A-M(HL);  A: : C CURSORSCHARJ ) ZERO  THEN 
DO; 

A*T; 

CALL  C SWAP#CURSORJ ; 

END; 

END  CHECKBCURSOR; 


GET#9TATUS#ADDR:  PROCEDURE; 

/»****X*****XX*X****y***********X*X****************X*,' 

/*  GETS  THE  BASE  ADDRESS  OF  THE  STATUS  LINE  FOR  THE  */ 


/*  SPECIFIED  TERMINAL.  */ 
/*  INPUT:  A - TERMINAL  NUMBER  */ 
/*  OUTPUT:  HL  - MEMORY  ADDRESS  OF  FIRST  BYTE  IN  */ 
/*  STATUS  LINE.  */ 
/*  CALLED  BY:  CLEAfl#STATUS*LINE;  MTS#MSG;  */ 
/*  SIZE# MSG;  STATUS#MSG;  */ 


/x***************************************************/ 

HL=CSTATUS#BASE] ; 

CALL  [GET# INDEX); 

CALL  C GET#VALUE] ; 

END  GET*STATUS»ADDR; 

GET#TERM#STATUS:  PROCEDURE; 

/XX****XXX*:*XX***:*x*X*XX*xX*XX****X*X******X**XXX:r*XX,' 

/*  RETRIEVES  THE  TERMINAL  STATUS  FOR  THE  INDICATED  */ 


/*  TERMINAL.  TERMINAL  STATUS  SPECIFIES  WHETHER  */ 
/*  OR  NOT  THERE  IS  AN  INPUT  BUFFER  OR  MTS  COMMAND  */ 
/*  READY  FOR  PROCESSING  FOR  THAT  TERMINAL.  */ 
/*  INPUT:  A - TERMINAL  NUMBER  */ 
/*  OUTPUT:  A - TERMINAL  STATUS  */ 
/*  CALLED  BY:  KEYSCOMMAND ; TERM I NALSSTATUS ; */ 
/*  UPDATE8CURS0R;  MONITOR  (MON  MOD);  */ 


B=0 ; C= A; 

HL*  [ TERM#STATUS  I + BC ; 
A=M(  HL)  ; 

END  GET#TERM*STATUS; 


SCROLL# D I SPLAY : PROCEDURE; 

/'S***************************************************/ 

/*  SCROLLS  THE  DISPLAY  FOR  THE  INDICATED  TERMINAL.  */ 
/*  INPUT:  A - TERMINAL  NUMBER  */ 

/*  CALLED  BY:  UPDATESCURSOR  */ 

/X*X*X**X**XX*X********XXX**XXXXXXX**X**X*XX*X*XX*XX*/' 

DECLARE  TERM  BYTE; 

DECLARE  POSC2)  BYTE; 

TERM*  A;  HL* C D ISPLAY#BASE] ; 

CALL  [GET# INDEX); 

CALL  [ GET#VALUEI ; DE=HL;  /*DE= DISPLAY  BASE  ADDR  */ 
POS=HL;  /*  SAVE  DISPLAY  BASE  ADDRESS*/' 

BC=64; 

BC* ( HL* HL+BC) ; /*  BC=DISPLAY  BASE  + 64  */ 

HL*448; 

REPEAT; 

M(DE)  = ( A*M(BC) ) ; 

BC*  BC+  1 ; DE*  DE+ 1 ; 

HL=HL- 1 ; A*0; 

UNTIL  ( A: : H)  ZERO  3 ( A: : L)  ZERO; 

BC*448;  /*  SETUP  PARAMETERS  FOR  */ 

DE=64;  HL*  POS ; /*  BLANK#D I SPLAY  PROC  */ 

CALL  BLANKSDISPLAY; 

END  SCROLL#D I SPLAY ; 


SEND#BEEP : PROCEDURE; 

/xx«xxxxxxxxxyxxxxxxxxxyxxxxxxxxxxx*****xxxxxxxy****x/ 
/*  SENDS  A BEEP  TO  THE  INDICATED  TERMINAL.  */ 
/*  THE  FORM  OF  THE  TERMINAL  ALERT  CONTROL  BYTE  IS:  */ 
/*  76343210  */ 


134 


/*  IA3IC3I A2IC2I A1 IC1 IA0IC0I  */ 

/»  */ 

/*  WHERE:  */ 

/*  AC  I ) * 1 ; GENERATES  AW  ALARM  AT  STATIOW  I.  */ 

/*  CCI)  * It  GEWERATES  A CLICK  AT  STATION  I.  */ 

/*  INPUT:  A - TERMINAL  NUMBER  */ 

/*  CALLED  BY:  KEYSCOMMAND ; */ 


/X**************X****X**X******X*****  XXXXXXXXXXXXXXXX/ 


H=0;  L=  A; 

IT  (A::®)  PLUS  8 (A:: 4)  MINUS  THEN 
DO  CASE  HI  : 

OUTC  I TERM3P0RTI  ) = C A=2) ; 

OUTC I TERM*PORT] ) > ( A-8) ; 

OUTC [ TERM# PORT] ) * C A*20H> i 
OUTC  [ TERIWPORT]  ) 3 C A=  BOH) ; 

END: 

END  SENDSBEEP ; 


SEND#CLICK:  PROCEDURE; 

z'XXXXXXXXXXXXXXXXXXXXXXXX****************************/ 


/*  SENDS  A CLICK  TO  THE  INDICATED  TERMINAL.  SEE  */ 
/*  SENDSBEEP  PROC  FOR  DEFINITION  OF  TERMINAL  ALERT  */ 
/*  CONTROL  BYTE.  */ 
/*  INPUT:  A - TERMINAL  NUMBER  */ 
/*  CALLED  BY:  UPDATESCURSOR  */ 


/x*****xx*****x***************x**x****************x**/ 


H30;  L3  A; 

IF  C A: : 0)  PLUS  8 CA::4)  MINUS  THEN 
DO  CASE  HL; 

OUTC  C TERMSPORT] ) = C A= 1 ) ; 

OUTC I TERM8P0RT] ) = C A=4) ; 

OUTC [ TERMSPORT] ) = C A3 10H)  ; 

OUTC  C TERMSPORT] ) = ( A=40H)  : 

END; 

END  SENDSCLICK; 


UPDATE*CURSOR:  PROCEDURE; 

/***XXXXX****X**X**XX***X********X*****X**X*X*****X*X/ 

/*  CONTROLS  THE  UPDATING  OF  THE  CURSOR  POSITION.  THE*/ 
/*  PRIMARY  CONCERN  IS  TO  CHECK  FOR  SCROLLING  PRIOR  */ 
/*  TO  UPDATING  THE  CURSOR.  SCROLLING  IS  NOT  ALLOWED  */ 
IF  SCROLLING  WILL  DESTROY  ANY  INPUT  DATA  NOT  YET  */ 


/*  PROCESSED.  */ 
/*  SUBPROCEDURES:  CHECKSSCROLL*LOCKOUT  */ 
/*  UPDATESDISPLAYSPTRS  */ 
/*  INPUT:  a - TERMINAL  NUMBER  */ 
/*  HL  - VALUE  TO  WHICH  CURSOR  POSITION  IS  */ 
/*  TO  BE  SET.  */ 
/*  CALLED  BY:  KEY#COMMAND;  TERMS INPUTtCNTL;  */ 
/*  WRITES TERM INAL;  */ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*************  xxxx*/ 
DECLARE  T BYTE; 

DECLARE  POSC 2)  BYTE; 

CHECKSSCROLLS LOCKOUT:  PROCEDURE; 

/*xxxx*x*****x********x***x***x***************x**/ 
/*  CHECKS  TO  SEE  IF  THERE  IS  AN  INPUT  BUFFER  */ 
/*  READY.  IF  SO,  CHECKS  TO  SEE  IF  SCROLLING  WILL*/ 
/*  DESTROY  INPUT  BUFFER.  IF  SO,  RETURN  TRUE.  */ 
/*  ELSE  RETURN  FALSE.  */ 

/*  OUTPUT:  a - TRUE  IF  SCROLLING  IS  LOCKED  OUT  */ 
/x*xx**xxxxx***xxxxxxx*xxx*x*x*x***********x***x*/ 
A«T; 

CALL  GET*TERM*ST ATUS : 

IF  C A*  A- C I BUFFSEMPTY] ) !ZERO  THEN 

DO;  /*  CHECK  NEXT*CH.AR  PTR  */ 

A3T;  HL3  I NEXT*CHAR] ; 

CALL  C GETS  I NDEX] ; /*  GET  NEXTSCHAR  OFFSET*/ 
CALL  C GET* VALUE] : /*  GET  NEXTSCHAR  VALUE*/ 
BC3  -64;  CY=0; 
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If  ( HL* EL+BC)  CY  THEN  /*  SCROLL  OK  */ 


A*  C FALSE] 

ELSE  /*  SCROLL  LOCKEDOUT 

A*  C TRUE]  ; 

END 

ELSE  s*  NO  INPOT  BUFFER,  SCROLL  OK 

A*  [ FALSE] ; 

END  CHECKSSCROLLS LOCKOUT; 


UPDATESDISPLAYSPTRS:  PROCEDURE! 

/XXX*XXX*XXXXXXXXXXXXXXXXXXXXX*XXX*XXXXXXXXXXXXXX/ 

/*  UPDATES  ALL  DISPLAY  PTRS  TO  REFLECT  THE  */ 

/■*  SCROLLING  OF  THE  DISPLAY.  USES  SETSPTR  TO  */ 
/%  DECREMENT  AND  STORE  THE  POINTER  VALUES.  */ 

/*  SUBPROCEDURE:  SETSPTR;  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

SETSPTR:  PROCEDURE; 

/'XXXXXXXXXXXXXXXXXXX*************************/' 

/•*  SETS  THE  SPECIFIED  PTR  TO  PTR-64,  AND  */ 
/*  STORES  THE  RESULT.  */ 

/*  INPUT:  DE  - ADDRESS  OF  PTR  */ 

/xxxxxxxxxxxxxxxxxxxxxxxxx**xxxxxxxxxxxxxxxxx/ 
CALL  C GETSVALUE] i 
BC* -64 i HL=HL+BC; 

CALL  C STORESVALUE] ; 

END  SETSPTR; 


/xxx*x*xx*xxxxxx*xxxxxxxxx***xxxx**xxxxxxxxxx/ 
START  OF  UP  DATES  D I S P LAYS  PTRS  PROCESSING  */ 
✓xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

/*  SET  CURSOR  TO  LEFT  MARGIN  OF  8TH  LINE*,' 
/*  ON  DISPLAY.  *s 

A*T;  HL=[ CURSOR]; 

CALL  C GETS INDEX]  ; 

HL*  448 ; DE*  DE+ 1 ; 

CALL  C STORES VALUE] ; 

/*  SET  NEXTSCHAR  3 NEXTSCHAR  - 64  */ 

DE*  ( HL*  C NEXTSCHAR] + BC)  ; 

CALL  SETSPTR; 

/*  SET  CURRENTS LINE  = CURRENTSL I NE  - 64  */ 
A=Ti  HL* [CURRENTSL I NE] ; 

CALL  [GETS INDEX] ; 

CALL  SETSPTR; 

/*  SET  ENDS  I BUFF  = ENDS  I BUFF  - 64  */ 

A=T;  HL*  C ENDS  I BUFF ] ; 

CALL  [GETS INDEX]; 

CALL  SETSPTR; 

END  UPDATESDISPLAYSPTRS; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/■*  START  OF  UPDATESCURSOR  PROCESSING 
/x****x**********xx*xxxx**xxxxx**********xx*xx*xx,' 


T* A;  '*  SAVE  INPUT  TERMINAL  NUMBER  *' 

POS=HL;  /*  SAVE  INPUT  CURSOR  POSITION  */ 

BC*  -[DISPLAYSSIZE] ; CY*0: 

IF  C HL=HL+BC)  CY  THEN  /*  SCROLLING  REQUIRED  */ 
DO; 

CALL  CHECKSSCROLLSLOCKOUT; 

IF  ( A=>  > A)  CY  THEN  /*  SCROLLING  LOCKED  OUT  */ 


DO: 

A*T; 


CALL  SENDSCLICK: 
END 


ELSE 


/%  SCROLLING  IS  OK 


*/ 


DO; 


A*T; 

CALL  SCROLLSDISPLAY; 

CALL  UPDATESDISPLAYSPTRS; 
END; 
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ElfD 

ELSE  HO  SCROLL INC  REQUIRED;  UPDATE  CURSOR  *s 

DO; 

A*T;  HL=[ CURSOR!; 

CALL  t GET* INDEX!;  /*  GET  CURSOR  PTR  ADDR  */ 
HL-POS;  SETUP  C STORE* VALUE!  PARAMETERS 
DE=  DE+ 1 ; 

CALL  C STORESVALUE1 ; /*  UPDATE  CURSOR  PTR  */ 
END; 

END  UPDATE*CURSOR; 


EOF 

✓***  xxxxxxxxxxxxxxxxxxxx  *x*xx*x***xx****x*****x**x*x*,' 
/xxxxx*  TERMINAL  KEY  PROCESSING  PROCEDURES  ********/ 

/'XX*X*X***XX*****XXXX*X*XX*X**X**X*XX*XXXX*XXXXXXX*XX/' 


[MACRO  TRUE  ’0FFH’ ! 
[MACRO  FALSE  ’0’  1 
[MACRO  BLANK  ’20H’  ! 
[MACRO  CURSOR»CHAR  ’ 3FH’  1 
[MACRO  INPUT* WAITING  ’0FFB’! 
[MACRO  MTS*CMD# READY  ’0F0H’I 
[MACRO  I BUFF* EMPTY  ’O’  ! 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/**********  MTS  KEY  COMMAND  MACROS  xxxxxxxxxxxxxxxx/ 


[MACRO 

MTSfCMD 

’ 0A0H’ ! 

[MACRO 

CR 

’ 0DH’  1 

[MACRO 

CHAR*DELETE 

’ 07FB’ 1 

(MACRO 

LINE* DELETE 

•013B’ ! 

(MACRO 

CAPITAL 

’ 0AIH’ ! 

[MACRO 

CURSOR* LEFT 

* 0A2H’ ! 

[MACRO 

CURSORSRIGHT 

’ 0A3H’  1 

[MACRO 

CLEARSSCREEN 

’ 0A4H’ ! 

(MACRO 

ENTER 

* 0A3H’ ! 

(MACRO 

RST*CMD 

’ 01EH’ ! 

/***** 

INTERNAL  AND  EXTERNAL 

LINKAGE  MACROS  xxxxxxx/ 

[ INT  GB  TB!  [ GB  : 3 0! 

[TB  i 

; s 

1000H! 

(MACRO 

TCT*STATUS 

’[HEX 

GB 

+ 

3E83H!  ’ 1 

(MACRO 

ASCII 

’[HEX 

TB 

+ 

0003 HI  • I 

(MACRO 

DISPLAYSBASE 

’[HEX 

TB 

+ 

01 1 IHI ’ 1 

(MACRO 

CURSOR 

’ [HEX 

TB 

♦ 

01D3HI ’ 1 

[MACRO 

CURRENT»LINE 

’[HEX 

TB 

+ 

0 1DDH1 ’ I 

(MACRO 

NEXT»CHAR 

’[HEX 

TB 

+ 

01E3H1 ’ I 

[MACRO 

END* I BUFF 

’(HEX 

TB 

+ 

0 l£DHl ’ 1 

[ MACRO 

CAPITALIZE 

• [HEX 

TB 

+ 

01F3H! ’ 1 

(MACRO 

SWAP*P03 

’(HEX 

TB 

0 1FDHI ’ I 

(MACRO 

COMP  ARE*  PTRS 

•(HEX 

TB 

+ 

0213H1 ’ I 

[MACRO 

GET* INDEX 

’(HEX 

TB 

+ 

024CH1 ’ I 

[ MACRO 

GET* VALUE 

’[HEX 

TB 

+ 

0239H1 • ! 

[MACRO 

STORE*VALUE 

’[HEX 

TB 

+ 

0262H! • 1 

( MACRO 

BLANK*D I SPLAY 

• (HEX 

TB 

•f 

02A3H1 • 1 

(MACRO 

GET*D I SPLAY* ADDR 

• [HEX 

TB 

■f 

02B7H! • ! 

[MACRO 

CHECK*CURSOR 

• [HEX 

TB 

+ 

02D0HI * I 

[ MACRO 

GET*TERM*STATUS 

•[HEX 

TB 

+ 

02F9HI 1 1 

[ MACRO 

SEND*BEEP 

• [HEX 

TB 

+ 

033EH1 ’ I 

[ MACRO 

UPDATE»CURSOR 

•[HEX 

TB 

•f 

03C2HI ' 1 

KEY*COMMAND:  PROCEDURE: 

/*xx**xxx*xxx»xxxxx*xxxxxx*xxx*xxx*x*xx»xx*xxxxxxxxxx/ 
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rm 

CHECKS  FOR  A 

TERMINAL  KEY  COMMAND  FOR  EVERY  KEY 

/* 

INTERRUPT  RECEIVED. 

#/ 

KEY  COMMANDS 

ARE: 

*/ 

/* 

CMD 

KEY 

RESULT 

*/ 

/* 

— 

— 

*/ 

MTS  CMD 

ERROR  RESET 

SENDS  A COMMAND  TO 

*/ 

/* 

MTS  FOR  PROCESSING. 

*/ 

/* 

CR 

NEW  LINE; 

TERMINATES  THE 

*/ 

/* 

ENTER;  SHIFT 

CURRENT  LINE  AND 

*/ 

/* 

CR;  I/O  CTL  M; ESTABLISHES  IT  AS 

*/ 

/* 

THE  CURRENT  INPUT 

%/ 

BUFFER. 

*/ 

/* 

CHAR  DELETE 

BACK  SPACE 

DELETES  THE  LAST 

*/ 

/* 

CHAR  ENTERED. 

*/ 

/* 

LINE  DELETE 

NEXT  FMAT 

DELETES  THE  CURRENT 

/* 

LINE. 

*/ 

/* 

CAPTIALIZE 

FS  C 

FLIP/FLOP  USED  TO 

*/ 

/* 

SET  OR  CLEAR  THE 

*/ 

/* 

TERMINAL  INPUT  MODE 

/# 

TO  UPPER  OR  LOWER 

%/ 

CASE  LETTERS. 

/* 

CLEAR  SCREEN 

FS  S 

CLEARS  THE  512  CHAR 

*/ 

/* 

DISPLAY  BUFFER. 

*/' 

/* 

CURSOR  LEFT 

< 

MOVES  CURSOR  POS 

*/ 

/* 

ONE  POSITION  TO  THE 

%/ 

s* 

LEFT. 

*/ 

/* 

CURSOR  RIGHT 

— > 

MOVES  CURSOR  POS 

*/ 

/* 

ONE  POSITION  TO  THE 

*/ 

/* 

RIGHT. 

*/ 

/* 

RST  CMD 

SHIFT  RS 

EXECUTE  A RST  7 

*/ 

/* 

INSTRUCTION.  FOR 

%/ 

/* 

USE  WITH  CP/M  DDT. 

'*/ 

/* 

SUBPROCEDURES 

::  ACCEPT#  INPUT; 

CHECKSLEFTSMARG I N ; 

*/ 

/* 

DELETESCHAR: 

CLEARSPTRS;  MTSSCMD; 

%/ 

/* 

TERMINATESCL; 

CARR I AGE# RETURN ; 

*/ 

/* 

CHAR#DELETE; 

LINESDELETE;  CAPITAL; 

*/ 

/* 

CLEAR#SCREEN ; 

CimSOR#LEFT; 

*/ 

/* 

CURSOR#RIGHT; 

CHECKSCASE;  RSTSCMD; 

*/ 

INPUT:  A 

- TERMINAL  NUMBER 

/* 

c 

- ASCII  CHAR  RECEIVED 

*/ 

/* 

OUTPUT:  A 

- TRUE  IF  CHAR 

= KEY  COMMAND 

*/ 

/* 

CALLED  BY-’ 

TERM# INPUT#CNTL; 

*/ 

DECLARE  (CHAR.T)  BYTE; 

DECLARE  RESPONSE  BYTE; 

ACCEPT# INPUT:  PROCEDURE; 

/•i**************************:*:*********************/ 

/*  CHECKS  THE  TERMINAL’S  CURRENT  STATUS  TO  */ 

/*  DETERMINE  IF  THIS  NEW  INPUT  BUFFER  SHOULD  BE  */ 
/*  ACCEPTED.  IF  SO,  RETURNS  TRUE.  ELSE  FALSE.  */ 
/*  OUTPUT:  A - TRUE  IS  INPUT  CAN  BE  ACCEPTED.  */ 
/*  HL  - IF  A IS  TRUE  THEN  HL  CONTAINS  */ 

/*  THE  ADDRESS  OF  TERMSSTATUS.  */ 

/'****»***********************:********************/ 
A=T;  CALL  I GET*TERMSSTATUS] ; 

IF  ( A: : l IBUFFSEMPTY] ) !ZERO  THEN 

DO;  /*  INPUT  BUFFER  HAS  NOT  YET  BEEN  */ 
/^PROCESSED;  DO  NOT  ACCEPT  NEW  BUFFER*/ 
A=T;  CALL  I SEND#BEEP1 ; 

A3 [ FALSE] ; 

END 

ELSE 

A=  [ TRUE! ; 

END  ACCEPT# INPUT; 


CHECK»LEFT#MARGIN:  PROCEDURE; 

/I**************************:*************#*****:***/ 

/*  CHECKS  TO  SEE  IF  CURRENT  LINE  IS  EMPTY.  */ 

/*  COMPARE#PTRS  RETURNS  THE  .APPROPRIATE  TRUE/  */ 
/*  FALSE  VALUE  IN  THE  A REGISTER.  */ 

/*  INPUT:  DE  - ADDRESS  OF  CURSOR  */ 
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/*  BC  - COMPUTED  OFFSET  OF  TEEM  NBR  */ 

/*  OUTPUT:  A - RETURNED  TRUE  IF  CURSOR  IS  */ 

/*  PRESENTLY  AT  LEFT  MARGIN.  */ 

/************************************************/ 
HL®fCURRENT*LINEJ+BC;/*HL*ADD  OF  CURRENTLINE*/ 
CALL  CCOMPAREfPTRSI i /*  COMPARE  */ 

/*  CURSOR  = CURRENTSLINE  */ 
END  CHECK* LEFTS MARGIN; 


CLEAR* PTR:  PROCEDURE; 

/*  SETS  THE  VALUE  TO  THE  SPECIFIED  DISPLAY  */ 

/*  POINTER  TO  ZERO.  */ 

/*  INPUT:  HL  - ADDRESS  OF  THE  DISPLAY  PTR  */ 

/************************************************/ 
Mt  HL)  = ( A®0) ; HL®  HL+ 1 ; M(  HL) = A; 

END  CLEAR* PTR; 


DELETE* CHAR:  PROCEDURE; 

/****»*************************************:******/' 
/*  DECREMENTS  THE  CURRENT  CURSOR  POSITION  AND  */ 
/*  SETS  NEW  CURSOR  POSITION  DISPLAY  TO  BLANK.  */ 
/*  INPUT:  DE  - ADDRESS  OF  CURSOR  */ 

/*  BC  - COMPUTED  OFFSET  OF  TERMINAL  NBR  */ 

/'**************  *******************:****:*:*:K******5|S*^ 

CALL  £ GET* VALUE1 ; /*  GET  CURSOR  */ 

HL®  HL- 1 ; /*  DECREMENT  CURSOR  */ 

CALL  C STORESVALUE] ; /*  SAVE  NEW  CURSOR  POS  */ 
CALL  [ GET*D I SPLAYS ADDRI ; /*  REPLACE  PRESENT  */ 
M(  HL) * ( A=  C BLANK!);  /*  CHAR  WITH  BLANK  */ 

END  DELETESCHAR; 

TERMINATESCL:  PROCEDURE; 

/•S*****************:******************************/ 


/*  TERMINATE  THE  CURRENT  LINE.  THE  SAME  */ 

/*  PROCESSING  IS  DONE  FOR  BOTH  AN  MTS  CMD  AND  */ 
/*  A CARRIAGE  RETURN  ( CR>  SINCE  EACH  SPECIFIES  */ 
/*  THE  END  OF  INPUT  BY  THE  USER.  */ 

/•***********  r**************:;;***********:***********/ 

/*  CHECK  CHAR  PRESENTLY  BEING  */ 

/*  DISPLAYED  AT  CURSOR  POSITION  */ 

/*  PRIOR  TO  UPDATING  PTRS.  */ 

A=T;  CALL  I CHECKSCURSOR] ; 

/*  END  OF  CURRENT  LINE;  UPDATE  */ 

/*  DISPLAY  POINTERS  FOR  NEW  INPUT  */ 
/*  BUFFER  AND  NEW  CURRENT  LINE.  */ 


/*  SET  END* IBUFF=CURRENT  CURSOR  POS  */ 

A=T:  HL1  [ END* I BUFF ] ; 

CALL  CGET* INDEX]; 

HL=C CURSOR] +BC; 

BC®  DE;  DE®HL; 

CALX,  C GET* VALUE)  ; 

DE®  BC+ 1 ; 

CALL  C STORESVALUE] ; /*  END* I BUFF® CURSOR  */ 

/*  MOVE  CURSOR  TO  BEGINNING  OF  */ 

/*  NEXT  LINE.  HL  CONTAINS  THE  */ 

/*  CURRENT  CURSOR  POSITION.  */ 

IF  (A® CHAR;  A: : C ENTER] ) TZERO  THEN 

DO;  /*  CHAR  IS  EITHER  NEXT  LINE  OR  MTS  CMD  */ 
BC*64;  HL®  HL+BC ; /*  ADD  64  TO  CURRENT  POS;*/ 

L=  ( A®  L 3 OC0H);/*THEN  CLEAR  LOWER  6 BITS*/ 
A=T; 

CALL  t UPDATE*CURSORl ; 

/*  SET  CURRENT  LINE  = NEW  CURSOR  POS*/ 
A=T;  HL® [ CURRENTSLINE] ; 

CALL  £ GET* I NDEXJ  ; 

HL®C CURSOR] +BC; 

BC®DE;  DE®  HL; 

CALL  C GET* VALUE] ; 

DE®  BC+  I ; 

CALL  [STORESVALUE] ; /*CURRENT*L I NE= CURSOR*/ 
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END; 

END  TERM  I KATE*  CL; 


MTSSCMD:  PROCEDURE; 

/'x**«x*x»tt»»*«x**x:|'*»sxxx*»*x***********»yx«x*x*»/ 
/*  CHECK  TO  SEE  IF  THIS  INPUT  CAN  BE  ACCEPTED.  */ 
/*  IF  SO,  SET  TERM8STATUS  TO  MTS#CMD* READY  AND  */ 
/*  SET  MCP  BIT  IN  TASK  CONTROL  TABLE  TO  ENSURE  */ 
/*  MCP  IS  CALLED  BY  THE  MONITOR  TO  PROCESS  THIS  */ 
/*  MTS  COMMAND.  */ 

/XX*******************  XXXXXXX^XXXXXXXXXXXXXXXXXX/ 

CALL  ACCEPT* INPUT; 

IF  ( A*  > > A)  CY  THEN 

DO;  /*  ACCEPT  INPUT  BUFFER  */ 

M( HL) * < A*  C MTS»CMD# READY] ) ; 

B=0;  C=(A=T); 

HL*  C TCT*STATUS]  + BC; 

M<HL)  = (A=M<HL)  \ 2)  ; 

CALL  TERM  I N ATE*CI. ; 

END; 

END  MTS*CMD; 


CARRIAGE* RETURN : PROCEDURE; 

/xy*m*«y**mm******x«*v*»*»:mmx»»ii*xn:*y*/ 
/*  USER  HAS  TERMINATE  CURRENT  LINE.  CHECK  TO  */ 
/*  SEE  IF  NEW  INPUT  BUFFER  CAN  BE  ACCEPTED.  IF  */ 
/*  SO,  SET  TERMSSTATUS  TO  INPUT9WAITING  AND  */ 
/*  TERMINATE  CURRENT  LINE.  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXfcXSXXXXXXXXXXXXXXX/ 

CALL  ACCEPT* INPUT; 

IF  ( A=  > > A)  CY  THEN 

DO;  /*  ACCEPT  INPUT  BUFFER  */ 

MC  HL)  = ( A*  [ INPUTSWAITING] ) ; 

CALL  TERM I NATE*CL ; 

END; 

END  CARR I AGE* RETURN; 


CHAR*DELETE:  PROCEDURE; 

/xxxx*xx**x*x*xxxxx*xxx*x*****y*************xx*xx/' 


/*  CHECK  TO  ENSURE  THAT  CURRENT  LINE  IS  NOT  */ 
/*  EMPTY.  THEN  DELETE  THE  PREVIOUSLY  ENTERED  */ 
/*  CHAR.  */ 
/*  INPUT:  DE  - CURSOR  OFFSET  ADDRESS  */ 


/*xxx*xxxxxxxxx****x*x***x****y**x****xx***x*x*x*/ 
CALL  CHECK*LEFT* MARGIN; 

IF  ( A*  > > A)  CY  THEN 

DO;  /*  CURRENT  LINE  EMPTY  */ 

A=T; 

CALL  C SEND* BEEP ] ; 

END 

ELSE 

DO;  /*  DELETE  CHAR  */ 

A=T;  CALL  [ CHECK8CURS0R] ; 

A=T;  HL* I CURSOR]; 

CALL  C GET* I NDEX] ; 

CALL  DELETE* CHAR; 

END; 

END  CHAR*DELETE; 


LINE*DELETE:  PROCEDURE; 

/xxxxxxx*xxxx*x*xxx***xx***xxxx***x**-'**x*xxxx**xx/ 
/*  CHECK  TO  ENSURE  THAT  CURRENT  LINE  IS  NOT  */ 
'*  EMPTY.  IF  NOT,  THEN  DELETE  THE  CURRENT  LINE.*/ 
/*  INPUT:  DE  - CURSOR  ADDRESS  OFFSET  */ 

^xxxxxx***xxxxx**x**x*x**xx*xxx**********xx*xxxxx/ 
CALL  CHECK* LEFT# MARGIN; 

IF  ( A*  > > A)  CY  THEN 

DO;  /*  CURRENT  LINE  EMPTY  */ 
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A*T; 

CALL  CSEND#BEEP]  ? 

END 

ELSE 

DO; 

A=T;  CALL  [ CHECKSCURSOR] ; A=0; 

DO  WHILE  (A*>>A)  ICY; 

A*T;  HL*  C CURSOR!  ; 

CALL  C GET* INDEX!?  /*  GET  CURSOR  OFFSET  */ 
CALL  DELETESCHAR; 

A*T;  HL=[ CURSOR]; 

CALL  C GET* INDEX]; 

CALL  CHECK# LEFT* MARGIN ; 

END; 

END; 

END  LINESDELETE; 


CAPITAL:  PROCEDURE; 

/W***:;;:*^******;*******:*  ************  ****»**********/ 

/*  SET  OR  CLEAR  THIS  TERMINALS  CAPITALIZE  FLAG.  */ 

/'at**************************:#**********:***#*****:*/ 

B*0;  C* ( A=T) ; HL= [ CAP ITALIZE] +BC; 

M<  HL)  * <A*M<HL)  NM>; 

END  CAPITAL; 


CLEARSSCREEN : PROCEDURE; 

✓ !M«**********aMt*»***:*******:*::#**:fc*:(t********:*:******^ 

/*  CLEARS  THE  512  BYTE  DISPLAY  BUFFER  AND  */ 

/*  REINITIALIZES  THE  DISPLAY  POINTERS.  */ 

/*  INPUT:  HL  - CURSOR  ADDRESS  */ 

/S***********************************************/ 

CALL  CLEAR#PTR;  /*  REINITIALIZE  DISPLAY  */ 

A=T;  HL*  C CURRENTSL I NE] ; /*  PTRS  AND  TERMINAL  */ 
CALL  [GET# INDEX];  /*  STATUS.  */ 

CALL  CLEAR#PTR; 

A=T;  HL*  C NEXTSCHAR] ; 

CALL  [GET# INDEX]; 

CALL  CLEAR#PTR; 

A*T;  CALL  [ GET#TERM#STATUS] ; 

M<  HL)  = ( A*  [ IBUFFSEMPTY] ) ; 

/*  CLEAR  THE  DISPLAY  */ 

A»T;  HL*CDISPLAY#BASE] ; 

CALL  [GET# INDEX]; 

CALL  [ GET»VALUE] ; /*  D I SPL AY#B ASE  PTR  IN  HL*/ 

BC*0;  DE=512;  /*  SETUP  INPUT  PARAMETERS  FOR  */ 
/*  [ BLANKSD I SPLAY]  PROC  */ 

CALL  [ BLANK#DISPLAY] ; 

/*  RESET  SWAPSPOS  TO  CURSORSCHAR  */ 

B=0;  C=(A=T); 

HL* [ SWAP#POS] + BC ; 

M<  HL)  = ( A*  t CURSORSCHAR] ) ; 

END  CLEARtSCREEN ; 


CURSOR# LEFT:  PROCEDURE; 

/at************************************  *********»'«/' 

/*  MOVES  THE  CURRENT  CURSOR  POSITION  BACK  ONE.  */ 
/*  CHECKS  TO  ENSURE  THAT  CURSOR  IS  NOT  ALREADY  */ 
/*  AT  THE  LEFT  MARGIN  OF  CURRENT  LINE.  */ 

/*  INPUT:  DE  - CURSOR  ADDRESS  */ 

^K**:*****************:*****-.******************:***;**/' 
CALL  CHECKBLEFT# MARGIN; 

IF  ( A* > > A)  CY  THEN 

DO;  /*  AT  LEFT  MARGIN;  SEND  BEEP  */ 

A*T? 

CALL  [SEND#BEEP] ; 

END 

ELSE 

DO;  /*  DECREMENT  CURSOR  */ 

A=T;  CALL  [ CHECK#CURSOR] ; 

A=T;  HL=[ CURSOR]; 


CALL  [GETS INDEX] s 
CALL  [ GET» VALUE] ; 
HL3 HL- I ; 

CALL  C STORESVALUE] ; 
END; 

END  C URSOR*  LEFT ; 


CURSOR*RIGHT:  PROCEDURE; 

/XX:**:*****************************.,  XXXXXXXXXXXXXX/ 

/*  MOVE  THE  CURRENT  CURSOR  POSITION  FORWARD  ONE.*/ 
/*  INPUT:  DE  - CURSOR  ADDRESS  x/ 

/X*********X************XXXXXXX**XX****X*XX*****X/ 
A=T;  CALL  [ CHECKSCURSOR] ; 

A=T;  HL=C CURSOR]; 

CALL  [GET* INDEX]; 

CALL  CGET* VALUE]; 

HL=HL+1 ; /*  SETUP  NEW  CURSOR  POS  */ 

A*T;  CALL  [ UPDATE*CURSOR] ; 

END  CURSOR* RIGHT ; 


CHECKSCASE:  PROCEDURE; 

,-XXXXXXXXXXXXXX*XXXXXX****XXXXXXXXX**XXXXX****XXX/' 
/*  USES  A CASE  STATEMENT,  INSTEAD  OF  ’ELSE  DO’  */ 
/*  TO  CHECK  FOR  THE  LAST  FOUR  KEY  COMMANDS.  IF  */ 
/*  NOT,  RESPONSE  IS  SET  TO  FALSE.  (NOTE:  CASE  */ 
/*  STMT  MUST  BE  USED  TO  GET  AROUND  ML80’S  PARSE  */ 
/*  STACK  OVERFLOW,  CAUSED  BY  TOO  MANY  ’ IF  THEN  */ 
/*  ELSE  DO’  STITTS.  */ 

/*  INPUT:  DE  - CURSOR  ADDRESS  */ 

/X*XXXX*X***XX****XXX*XX*X*XXX*XXXXXXX**X*X*****X/ 
H=0;  L=( A= CHAR-0 A 1H) ; /*  SETUP  CASE  OFFSET  */ 
IF  (A: : 0)  PLUS  8 (A:: 4)  MINUS  THEN 
DO  CASE  HL; 

CALL  CAPITAL; 

CALL  CURSOR* LEFT ; 

CALL  CURSOR9RIGHT; 

DO;  HL=DE;  CALL  CLEARSSCREEN ; END; 

END 

ELSE 

RESPONSE3 ( A= C FALSE] ) ; 

END  CHECKSCASE; 


RST*CMD:  PROCEDURE; 

/a*********#****************#**********#*********/ 
/*  SET  R3T  BIT  IN  THE  TASK  CONTROL  TABLE  SO  */ 

/*  RST  7 IS  EXECUTED  BY  MONITOR.  */ 

/'XX*X**********X**X********X*****XXX***XXXX*XXX*,/' 
B=0 ; C=(A=T); 

HL=CTCT*STATUS]  + BC; 

M(  HL) 3< A=M(  HL)  N 10H) ; 

END  RSTSCMD: 

/'XXXXXXX**XXXXX**XXXXX*XXXXXXX*XXXXX**XXXX*****XX/' 
/*  START  OF  KEY*COMMAND  PROCESSING  */ 

/************************************************/- 

T3  A:  CHAR3 ( A=C) ; /*  GET  INPUT  PARAMETERS  */ 

RESPONSE3 (A=C TRUE] ) ; /*  INITIALIZE  RESPONSE  */ 

A3T ; HL*  t CURSOR]  ; /*  GETSINDEX  PARAMETERS  */ 

CALL  EGETSINDEX];  /*  GET  CURSOR  OFFSET  .ADDRESS*/ 

IF  ( A3CHAR-[  MTS*CMD1 ) ZERO  THEN  /*  MTS  CMD  */ 
CALL  MTS*CMD 

ELSE  DO: 

IF  ( A* CHAR;  A::[CR]>  ZERO  \ 

(A:: [ENTER])  ZERO  THEN  /*  NEXT  LINE  OR  */ 

/*  ENTER  DEPRESSED  */ 

CALL  CARR I AGE* RETURN 


L 


ELSE  DO; 

IF  ( A3CHAR-!CHARSDELETE] ) ZERO  THEN 

CALL  CHARSDELETE  /*  CHAR  DELETE  CMD  */ 


ELSE  DO; 

IF  ( A’CHAR-CLINESDELETE] ) ZERO  THEN 


CALL  LINESDELETE 

/% 

DELETE  LINE  CMD 

*/ 

ELSE  DO; 

IF  <A3CHAR-CRSTSCMD] ) 

ZERO 

THEN 

CALL  RSTSCMD 

/* 

RESTART  7 CMD 

*/' 

ELSE 

CALL  CHECKSCASE; 

/* 

USE  CASE  STMT  TO 

*/ 

/* 

CHECK  FOR  REMAINING 

*/ 

/% 

KEY  COMMANDS. 

*/ 

END;  END;  END;  END; 

/* 

END  OF  ELSE  DO'S 

xs 

A3 RESPONSE; 

END  KEYSCOMMAND; 

TERM* INPUTSCNTL:  PROCEDURE; 

/'at***********:*:*******:**********:**********************/ 


/*  CONVERTS  THE  INPUT  MATRIX  CODE  TO  ASCII;  CHECKS  */ 
/*  FOR  CAP  I ALIZATION  AND  CONVERTS  LOWER  TO  UPPER  */ 
/*  CASE  LETTERS  IF  REQUIRED;  CHECKS  FOR  MTS  KEY  */ 

/*  COMMANDS;  IF  NOT  A KEY  CMD  THEN  THE  CHAR  IS  */ 

/*  DISPLAY  AT  THE  TERMINAL  AND  CURSOR  INCREMENTED.  */ 

/*  INPUT:  C - MATRIX  CODE  */ 

/*  E - TERMINAL  NUMBER  */ 

/*  CALLED  BY:  TERMINALSHLDR  ( INTERRUPT  MOD)  */ 

/**********************:**************************** **/ 

DECLARE  C CHAR, T)  BYTE; 

T=(A=E);  /*  SAVE  TERMINAL  NUMBER  */ 


/*  CONVERT  MATRIX  CODE  TO  ASCII  */ 
B30;  HL=  [ ASC I II  + BC ; 

CHAR=  ( A3M(  HL)  ) ; 

/*  CHECK  FOR  CAPITALIZATION  */ 
D=0;  HL3  C CAP ITALIZE] +DE; 

IF  ( A3 M(  HL) ; A::0)  ’ZERO  3 (A=CHAR-61H)  PLUS 

Q (A=CHAR-7BH)  MINUS  THEN  /*  CONVERT  TO  */ 
CHAR3  ( A3CHAR"20H) ; /*  UPPER  CASE  LETTER  */ 

/*  CHECK  FOR  ANY  KEY  COMMANDS  */ 

C3 ( A3  CHAR) ; A»T; 

CALL  KEYSCOMMAND ; 

/*  A REG  RETURNED  TRUE  IF  KEY  CMD  FOUND  */ 
IF  ( A3 > > A)  ICY  THEN  /*  DISPLAY  CHAR  */ 

DO; 

A3T;  CALL  C CHECKSCURSOR] ; 

A=T;  HL3!  CURSOR!; 

CALL  CGETS INDEX];  /*  GET  CURSOR  OFFSET  */ 

CALL  [ GETSD I SPLAYS ADDR] ; 

M(HL)3(A=CHAR)  ; 

/*  UPDATE  CURSOR  POSITION  BY  ONE.  BC  WAS*/ 
/*  RETURNED  FROM  GETSD ISPLAYSADDR  SET  */ 
/*  TO  THE  VALUE  OF  CURSOR.  */ 

HL=  BC+  1 ; 

A3T:  CALL  [ UPDATESCURSOR] ; 

END; 

END  TERMS INPUTSCNTL; 


EOF 

/'*********************:***************:*»:*****:)!*****:*:(:*/ 
/*****  TERMINAL  INTERFACE  SYSTEM  FUNCTIONS  ********/ 
/********************************:**************»::*****/ 
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[MACRO  I BUFF* EMPTY 
[MACRO  MTS«CMD* READY 
[MACRO  CR 
[MACRO  LF 


•0’  3 

’ 0F0H’  ] 
' 0DH'  3 
•0AH’  ] 


,'XXXXX:XX*XXXX*X*:XX*:K*::**:*:X:*3C*:***:X*:K*X*X*XXXXXXXXXXXXXX/' 

/xxxx*  INTERNAL  .AND  EXTERNAL  LINKAGE  MACROS  *******/ 


[ I NT  GB  TB3 
[MACRO  TASK 


[GB  :=  0]  [TB  :=  1000H3 


’ M(  [ HEX  GB  + 3E80H3 ) ’ I 
•[HEX  TB  + 011CH1 ’ I 


[MACRO  MTS*MESSAGE  ’[HEX  TB  + 011CH] 
[MACRO  SIZESMESSAGE  ’[HEX  TB  + 01CFH3 
[MACRO  CURSOR  ’[HEX  TB  + 01D3H3 
[MACRO  CURRENTSLINE  '[HEX  TB  + 01DDH3 
[MACRO  NEXT* CHAR  ’[HEX  TB  + 0IE3H3 
[MACRO  ENDS  I BUFF  ’[HEX  TB  + 01EDH3 


[MACRO  C0MPARE8PTBS  ' r HEX  TB  + G213H3’  I 

[MACRO  CONVERTSNUMBRSTOSASC I I ’[HEX  TB  + 023 1 HI  ' I 


[MACRO  GETS  INDEX 
[MACRO  GETSVALUE 
[MACRO  STORESVALUE 
[MACRO  MOVESBYTES 
[MACRO  SWAPSCUF.SOR 


[HEX  TB  + 024CH3 
[HEX  TB  + 0239H3 
[HEX  TB  + 0262H3 
[ HEX  TB  + 02*3  BH] 
[HEX  TB  + 027EH3 


(MACRO  BLANKSD I SPLAY  * [ HEX  TB  + 02A3H] ’ ] 
[ MACRO  CHECKSCURSOR  ’ [ HEX  TB  + 02D0H] 1 ] 
(MACRO  GETSD ISPLAYSADDR  ’[HEX  TB  + 02B7H3 ' I 
[ MACRO  GETS STATUS SAD DR  ’ t HEX  TB  + 02ECH3 ’ 3 
[MACRO  GETSTERMSSTATUS  ’[HEX  TB  + 02F9H3 ’ I 
[ MACRO  UPDATESCURSOR  ’ [ HEX  TB  + 03C2H3 ' 3 


BLINKSCURSORS:  PROCEDURE; 

/x*xxxxxxxxx:**:*:*****:*c****:xxxx*:f:x*:f:»:***:*x*:*:*xx:x*:*c:*****.' 
/*  SWAPS  THE  CURRENT  CONSENTS  OF  CURSOR(I)  WITH  */ 

/*  SWAPSPOS(  I)  FOR  EACH  TERMINAL  ( 1 = 0 TO  3) . */ 

/*  CALLED  BY:  TIHERSHDLR  C INTERRUPT  MOD)  */ 

/XXXXXXXXXXXSXXXXXXXXX^XXXXXXXXXXXXXXXXXXXXXXXXXSXXXX/ 

DECLARE  I BYTE; 

I=(  A=3) ; 

REPEAT; 

HL= [ CURSOR! ; 

CALL  [GETS INDEX]; 

CALL  [ GETSD I SPLAYS ADDR3 ; 

A= I ; CALL  [ SWAPSCURSOR3  ; 

I = C A=  I - 1 > ; 

UNTIL  ( A 5 : 0 ) MINUS; 

END  BLINKSCURSORS; 


CLEARSSTATUS8LINE:  PROCEDURE; 

✓XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

s*  CLEARS  THE  STATUS  LINE  OF  THE  SPECIFIED  TERMINAL.  *■/ 
/*  INPUT:  A - TERMINAL  NUMBER  */ 

/•*  CALLED  BY:  MTSSIPL  (MONITOR  MOD);  */ 

/*  BUMP  (SERVICE  MOD);  */ 

/-XXXXXXXXXXXXXXXXXX  XXXXXXXX*XX*XX**XX****XXXXXXXXXXXX,' 

CALL  [ GETSSTATUSSADDRj  ; 

BC=0;  DE=64;  r*  SETUP  P ARAMETERS  FOR  */ 

CALL  t BLANKSD ISPLAY3 ; /*  BLANKSDISPLAY  PROC  */ 

END  CLEARSSTATUSSLINE; 


MTSSMSG:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXX*XXXXXXXXXX/ 

/*  CONTROLS  THE  MTS  MESSAGE  DISPLAY  FIELD  ON  THE 
/*  STATUS  LINE  OF  THE  TERMINAL  SPECIFIED  BY  'TASK'.  */ 


■ 


/*  THE  PTTS  MESSAGE  FIELD  STARTS  AT  POSITION  48  AND  */ 
/*  UTILIZES  THE  REMAINING  16  BYTES  FOR  MTS  MESSAGES  */ 


/*  ( SEE  «TS»MESSAGE  DATA) . */ 
/*  INPUT:  E - MTS  MESSAGE  NUMBER.  */ 
/*  CALLED  BY:  BUMP  (SERVICE  MOD);  */ 
/*  PR I NTERSHDLR  ( INT  MOD) ; */ 
/*  MIN ISDISK  (MONITOR  MOD);  */ 
/*  RECOVER  (MONITOR  MOD) ; */ 
/*  BUMPSTASK  (MONITOR  MOD);  */ 


DECLARE  MSGNO  BYTE; 
MSGNO= ( A=E) ; 


A=  C TASK]  ; 

CALL  C GET*STATUS#ADDR] ; 

BC=48;  /*  MTS  MSG  FIELD  OFFSET  FROM*/ 

/*  STATUS  BASE  ADDRESS  */ 

A= MSGNO;  E=4;  CY=0; 

REPEAT;  /*  COMPUTE  OFFSET  INTO  THE  */ 

A=  < < A ; /*  MTSS MESS AGE  DATA  VECTOR  */ 

UNTIL  (E=E-1)  ZERO; 


DE=(HL=HL+BC) ; /*  SETUP  PARAMETERS  FOR  */ 
B=0;  C=  A;  /*  [MOVESBYTES!  PROC  */ 
HL= C MTSSMESSAGE] +BC ; 

BCS  16 ; CALL  [MOVESBYTES!;  /*  DISPLAY  MSG  */ 
END  MTSSMSG; 


SIZESMSG:  PROCEDURE; 

/'»»***XX*:*:*****X*****:****x*:K*******:*:K:*:*:**:*Y***:«:*:«c:f::*X*/ 

/*  CONTROLS  THE  DISPLAY  OF  THE  CURRENT  MEMORY  SIZE  */ 
/*  ON  THE  STATUS  LINE  OF  THE  TERMINAL  SPECIFIED  BY  */ 
/*  ’TASK’.  THE  SIZE  MESSAGE  STARTS  AT  POSITION  40  */ 


/*  AND  HAS  THE  GENERAL  FORMAT : */ 

/*  40  47  */ 

/•*.  */ 

/*  NRK  MTS  E.G.  16K  MTS  */ 

/*  */ 

/*  WHERE  */ 

/*  ’NR’  IS  THE  CURRENT  MEMORY  SWAP  SIZE  */ 

/*  ALLOCATED  TO  THAT  TERMINAL  USER.  */ 

/*  THE  RANGE  IS  FROM  O TO  48K.  THE  INPUT  MEMORY  */ 

/*  SIZE  NUMBER  IS  CONVERTED  TO  ASCII  FOR  DISPLAY.  */ 
/*  INPUT:  A - MEMORY  SIZE  */ 

/*  CALLED  BY:  SIZE  (SERVICE  MOD);  */ 

/*  LOGIN  (SERVICE  MOD);  */ 

/*  RECOVERSSTATUSSL I NE  (MONITOR  MOD);  */ 


DECLARE  MEMSSIZE  BYTE; 

MEM*SIZE=A; 

A=  t TASK]  ; 

CALL  C GETSSTATUS® ADDR]  ; 

BC=40;  /*  SIZE  MSG  FIELD  OFFSET  */ 

HL=HL+BC;  /*  HL= START INC  ADDRESS  OF  */ 

/*  SIZE  MSG  FIELD  ON  STATUS  */ 
/*  LINE.  */ 

.4=  MEMSSIZE; 

CALL  C CONVERTS NUMB RSTOSASC II]; 

M(HL)  = (A=B>;  HL=  HL+ 1 ; /*  DISPLAY  MEMORY  SIZE  */ 

M( HL) * ( A*C) ; DE=  HL+ 1 ; /*  SETUP  PARAMETERS  */ 

HL-ISIZESMESSAGE] : /*  FOR  C MOVESBYTES]  PROC*/ 

BC=6;  CALL  [ MOVESBYTES ]; /*  DISPLAY  REST  OF  */ 

/*  SIZE  MESSAGE  */ 

END  SIZE* MSG; 


STATUS* MSC:  PROCEDURE: 

r-***********3li***********»:****T:*r******:*»;*  ************/' 

'*  CONTROLS  THE  STATUS  DISPLAY.  POSITIONS  0 THRU  34  */ 
/*  OF  THE  TERMINAL  STATUS  LINE.  IT  HAS  THE  */ 

/*  FOLLOWING  GENERAL  FORMAT:  */ 


/*  9 39  */ 

/#  */ 

/*  A*  NOrB=  NOrC=NOrD=  NOrE=  NOrF=  NOrG=  NOrH5  NOr  */ 
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r i 


/*  */• 

/*  WHERE  */ 

/*  the  letter  or  the  left  of  the  equal  sigr  */ 

/*  SPECIFIES  THE  DRIVE.  */ 

/*  -NO’  IS  THE  DISK  NUMBER  (0-31).  */ 

/*  'r'  IS  AN  OPTIONAL  PARAMETER  WHICH  IS  */ 

/%  DISPLAYED  WHEN  THE  ATTACHED  DISK  IS  A */ 

/*  RESTRICTED  (r)  READ  ONLY  DISK.  */ 

/*  THE  TERMINAL  IS  SPECIFIED  BY  'TASK'.  */ 

/*  INPUT:  A - ASCII  CODE  FOR  RESTRICT  (r),  */ 

/*  OR  BLANK  ( SPACE) . */ 

/*  B - DRIVE  NUMBER  (MUST  BE  CONVERTED  TO  */ 

/*  A LETTER  FOR  DISPLAY) . */ 

/*  C - DISK  NUMBER  (RANGE  0-31:  MUST  BE  */ 

/*  CONVERTED  TO  ASCII  FOR  DISPLAY).  */ 

/*  CALLED  BY:  LOGIN  (SERVICE  MOD);  */ 

/*  ATTACH  (SERVICE  MOD):  */ 

/*  RECOVER#STATUS»L I NE  (MONITOR  MOD) : */ 


/•XXX*************************************************/ 

DECLARE  ( RESTRICT. DRIVESLTR, DISK9NR)  BYTE: 

/*  GET  INPUT  PARAMETERS 
RESTRICT3 A;  DRIVESLTR3  ( A= B) : DISKSNR3  ( A=C) ; 

A*  C TASK) ; CALL  C GET9STATUSSADDR]  : 

/*  COMPUTE  THE  APPROPRIATE  STATUS 
/*  BASE  OFFSET  TO  DETERMINE  WHERE 
/*  TO  DISPLAY  THIS  STATUS  INFO 
C=0  B= ( A=DRIVESLTR) ; 

DO  WHILE  ( A: : 0)  !ZERO; 

C=(  A=C+3) ; 

B=(  A=B-1)  ; 

END; 

HL=HL+BC:  /*  SETUP  ADDRESS  FOR  STATUS  MSG. 

/*  DISPLAY  DRIVE  LETTER 
M( HL)  = ( A=  DRI VESLTR+4 1 H)  ; 

HL=  HL+  1 ; 

/*  DISPLAY  EQUAL  SIGN 
M(  HL)  » ( A-  • * ’ ) ; 

HL=HL+1;  A=DISKSNR; 

/*  CONVERT  AND  DISPLAY  DISK  NUMBER  */ 
CALL  [ CONVERT*NUMBRSTO*ASC III; 

M(HL)  = (A=B);  HL=HL+  1 ; 

M(  HL)  - ( A=C)  : HL-HL+1; 

/*  DISPLAY  RESTRICT  OR  BLANK  BYTE  */ 
M(HL)-(A=  RESTRICT) ; 

END  STATUS9MSG; 


*/ 


*/ 

*/ 

*/ 


*/ 


*/ 


TEHMINALSSTATUS : PROCEDURE: 

^XXXXXXXXXXXXXXXXXXXXXXXXXXX'CXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  PROVIDES  THE  INTERFACE  POINT  FOR  OTHER  MTS  SYSTEM*/ 


/*  FUNCTIONS . RETRIEVES  THE  CURRENT  TERMINAL  STATUS  */ 
/*  FOR  THE  TERMINAL  SPECIFIED  BY  'TASK’.  */ 
/*  OUTPUT:  a - SET  TO  THE  TERMINAL  STATUS  (EITHER  */ 
/*  I NPUTSWA ITINGs  MTS*CMD* READY:  OR  */ 
/*  IBUFF9EMPTY)  BY  GET9TERMSSTATUS  PROC.*/ 
/*  CALLED  BY:  WRITESTERMINAL:  MTS ( SERVICE  MOD) : */ 
/*  RE  AD*  TERM  INAL;  */ 
/*  ITTS*  I PL  (MONITOR  MOD);  */ 


****xx*****xxxx**xx*xxx**xxxx**xx**xx*x*x*xxxx**xxx*/ 

A= I TASK!  : 

CALL  I GET*TERM*STATUS  1 ; 

END  TERM I N AL*STATUS : 


RE AD* TERM INAL:  PROCEDURE: 

/x***x*xx*xx**xx*xxxxx*xx*xx*x*x*x**xx****x******x***/ 
/*  GETS  THE  NEXT  CHAR  FROM  THE  TERMINAL  INPUT  BUFFER*/ 


/*  SPECIFIED  BY  ’ TASK" . */ 
/*  IT  IS  ASSUMED  THAT  THE  CALLING  PROCEDURE  HAS  */ 
/*  CHECKED  TERMINAL  STATUS  TO  ENSURE  INPUT  IS  */ 
/*  WAITING  PRIOR  TO  CALLING  READ9TERMINAL.  */ 
/*  A TEST  FOR  END  OF  I BUFF  IS  MADE  AND  IF  SO.  A */ 


/*  CR’  CHAR  IS  RETURNED:  THE  TERMINAL  STATUS  IS  SET*/ 
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/*  TO  EMPTY;  AND  THE  NEXT»CHAR  PTR  IS  SET  TO  CURRENT*/ 
/*  LIRE.  */ 

/*  IF  HOT  AT  END  OF  I BUFF , THE  NEXT  CHAR  IS  RETURNED*/ 
/*  AND  THE  NEXT* CHAR  PTR  INCREMENTED.  */ 

/*  OUTPUT:  A - CHAR  OR  CR  */ 

/*  CALLED  BY:  MTS  (SERVICE  MOD);  MTS#IPL  (MONITOR);*/ 
/*  MONITOR  (MONITOR  MOD);  */ 

/****************************************************/ 

DECLARE  CHAR  BYTE; 

DECLARE  PTR( 2)  BYTE; 


A*  C TASK!  ; HL=  I NEXT*CHARI  ; 

CALL  I GET* INDEX];  /*  DE=  ADDR  OF  NEXT*CHAR  PTR  */ 
HL* I END* I BUFFI +BC; /*  HL=ADDR  OF  END* I BUFF  PTR  */ 
CALL  I C0MPARE8PTRS] ; /*  NEXTSCHAR=  END* I BUFF  ??  */ 

IF  ( A=  > > A)  CY  THEN 

DO;  /*  AT  END  OF  I BUFF,  SET  */ 

/*  NEXT*CHAR  = CURREHT9L I NE  */ 

A=  I TASK];  HL= C CURRENTSL INE] ; 

CALL  [GET* INDEX]  ; 

BC= ( HL= I NEXT*CHAR] +BC) ; 

CALL  [ GET* VALUE] ; /*  HL=  CURRENTSL I NE  VALUE*/ 

DE= BC+ 1 ; 

CALL  C STORE# VALUE] ; 

/*  UPDATE  TERMINAL  STATUS  */ 

CALL  TERMINALSSTATUS ; /*  RETURNS  HL=  ADDR  */ 

/*  OF  TERM#STATUS.  */ 
M(  HL)  = ( A=  C IBUFFSEMPTY1  ) ; 

/*  RETURN  'CR'  TO  CALLER  */ 

CHAR= ( A=  C CR] ) ; 

END 

ELSE  /*  NOT  AT  END  Of  I BUFF  */ 

/*  RETURN  THE  CHAR  */ 

DO; 

A-  I TASK] ; HL= C NEXTSCHAR] ; 

CALL  [GET# INDEX];  /*  GET  AND  SAVE  */ 

PTR=HL;  /*  NEXTSCHAR  OFFSET  */ 

CALL  CGET#DISPLAYSADDR] ; 

CHAR=( A=M(HL) ) ; /*  RETURN  CHAR  */ 

/*  INCREMENT  NEXTSCHAR  */ 

DE=  ( HL= PTR+1 ) ; /*  SETUP  I STORE# VALUE]  */ 

HL=  BC+ 1 ; /*  PARAMETERS  */ 

CALL  [ STORE* VALUE] ; 

END; 


A=CHAR; 


/*  RETURN  APPROPRIATE  RESPONSE  */ 


END  RE AD# TERM INAL; 


WRITE# TERM INAL:  PROCEDURE; 

s'****************************************************/ 

/*  DISPLAYS  THE  CHAR  AT  THE  CURRENT  CURSOR  POSITION  */ 
/*  OF  THE  TERMINAL  SPECIFIED  BY  ’TASK'.  IT  CHECKS  */ 
/*  FOR  TWO  SPECIAL  CHARACTERS  WHICH  AFFECT  THE  */ 

/*  DISPLAY  CURSOR  POSITION.  */ 

/*  'CR'  RETURNS  THE  CURSOR  TO  THE  BEGINNING  OF  THE  */ 
/*  CURRENT  DISPLAY  LINE.  'LF'  MOVES  THE  CURSOR  DOWN  */ 
/*  TO  THE  NEXT  LINE.  */ 

/*  FOR  ALL  OTHER  CHARACTERS,  THE  CHAR  IS  DISPLAYED  */ 
/*  AND  THE  CURSOR  POSITION  INCREMENTED.  */ 

/*  PRIOR  TO  OUTPUT,  THE  CURRENT  CURSOR  DISPLAY  */ 

/*  ADDRESS  IS  CHECKED  TO  ENSURE  THAT  THE  CURSOR  CHAR*/ 
/*  IS  SAVED.  OUTPUT  OF  CHARACTERS  IS  DONE  UNDER  */ 
/*  INTERRUPT  LOCKOUT  TO  ENSURE  THAT  SWAPPING  BY  */ 
/*  BLINK#CURSORS  PROC  IS  NOT  DONE.  */ 

/*  SUBPROCEDURE:  UPDATE#PTRS ; */ 

/*  INPUT:  E - ASCII  CODE  OF  CHAR  TO  BE  DISPLAYED  */ 
/*  CALLED  BY:  MTS  (SERVICE  MOD):  */ 

/*  MTS# I PL  (MONITOR  MOD);  */ 

/S**********************************:****;****:*********/ 

DECLARE  CHAR  BYTE: 

DECLARE  SAVE#CURSOR  (2)  BYTE; 


UPDATE#PTRS : PROCEDURE; 

,'*:****************************************»*:*****/ 
/*  AFTER  THE  DISPLAY  OF  EACH  CHAR  THE  CURRENT  */ 
/*  LINE  PTR  AND  NEXT  CHAR  PTR  ARE  ALWAYS  SET  TO  */ 
/*  NEW  CURSOR  POSITION.  ADDITIONALLY,  THE  */ 

/*  TERMINAL’S  STATUS  IS  SET  TO  I BUFF  EMPTY.  */ 

/***********************************«*»**********/' 
/*  GET  CURSOR  POSITION  */ 

Ar I TASK!  ; HL= [ CURSOR] ; 

CALL  [GET# INDEX] ; 

/*  SET  CURRENTSLINE  = CURSOR  */ 

BC*  ( HL=  C CURRENT#LINE] +BC) ; 

CALL  [ GET# VALUE ] ; /*  HL=  CURSOR  VALUE  */ 

DE= BC+ 1 ; 

CALL  [ STORE#VALUE] ; /*  CURRENT#L I NE= CURSOR  */ 
SAVE#CUHSOR=HL; 

/*  SET  NEXTSCHAR  = CURSOR  */ 

A= [ TASK] ; HL= [ NEXTSCHAR] ; 

CALL  [GET# INDEX]; 

HL- SAVE*CURSOR ; DE=  DE+ 1 ; 

CALL  C STORE# VALUE  ] ; /*  NEXT#CHAR=  CURSOR  */" 
/*  SET  TERMINAL  STATUS  = EMPTY  */ 
CALL  TERMINAL#STATUS; 

M( HL) = ( A= [ IBUFFSEMPTY] ) ; 

END  UPDATE#PTRS ; 

z'*:*************:***:*:**************************,' 

/*  START  OF  WRITE8TERMINAL  PROCESSING  */ 

/*****##****#*****#**************************/ 

DISABLE; 

CHAR=(  A=E)  ; 

A= [ TASK] ; CALL  [ CHECKSCURSOR] ; 

A= [ TASK] ; HL= [ CURSOR] ; 

CALL  [GET# INDEX]; 

IF  ( A=CHAR-[CR] ) ZERO  THEN 
DO; 

CALL  t GET#VALUE] ; 

L=(A=L  3 0C0H)  ; 

END 

ELSE 

DO; 

IF  ( A* CHAR-  [LF]>  ZERO 
DO; 

CALL  [ GET# VALUE] ; 

BC=64 ; HL=HL+BC; 

END 

ELSE 

DO; 

SAVE#CURSOR=  HL ; 

CALL  [ GET#D ISPLAYSADDR] ; 

M(  HL)  =< A=CHAR)  ; 

DE* C HL=SAVE#CURSOR) ; 

CALL  [ GETSVALUE] ; 

HL=  HL+ 1 ; INCREMENT  CURSOR  *s 

END; 

END; 

HL  REG  HOLDS  NEW  CURSOR  POSITION  */ 

A= [ TASK] ; CALL  C UPDATE#CURSORJ ; 

ENABLE; 

/*  UPDATE  OTHER  DISPLAY  PTRS  */ 

CALL  UPDATE#PTRS ; 

END  WRITE# TERM INAL; 

EOF 


/*  CARRIAGE  RETURN  */ 

/*  HL=CURSOR  */ 

/*  GET  LEFT  MARGIN  */ 


THEN 

/*  LINE  FEED  */ 

HL= CURSOR  *s 

/*  DISPLAY  CHAR  *s 
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,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 


/x  DEBUG  MODULE  »/ 
,-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^ 

/*  *y 

/x  THIS  MODULE  PROVIDES  THE  FACILITY  FOR  INTERACTIVE  */ 
y*  DEBUGGING  OF  MTS.  THE  DEBUGGER  MODULE  WAS  DEVEL-  x/ 
/x  OPED  TO  REPLACE  THE  SYCOR  HARDWARE  DEBUGGER  DUE  */ 
/x  TO  ITS  QUESTIONABLE  HARDWARE  RELIABILITY  AND  LIM-  */ 
/*  I TED  DEBUG  CAPABILITY.  x/ 
/x  xr 
/x  THE  DEBUG  MODULE  IS  DIVIDED  INTO  FOUR  BASIC  SUB-  */ 
/x  MODULES:  */ 
/X  X/ 

/x  ( I)  DEBUG  ENTRY  AND  COMMAND  PROCESSOR  */ 
y*  *y 
/%  THIS  SUBMODULE  CONTAINS  THE  ENTRY  POINT  FOR  X/ 
y*  THE  DEBUGGER  AND  THE  LOGIC  TO  SAVE  THE  MACHINE  x/ 
/*  AND  MTS  PROGRAM  STATES.  THE  COMMAND  PROCESSOR  x/ 
/x  INTERPRETS  THE  DEBUG  COMMAND  REQUESTED  AND  */ 
/*  TRANSFERS  CONTROL  TO  THE  APPROPRIATE  DEBUG  X/ 
y*  PROCESSING  PROCEDURE.  x/ 
/x  *■/ 
/x  (2)  DEBUG  UTILITIES  x/ 
y*  x/ 
/*  THIS  SUBMODULE  CONTAINS  ALL  UTILITY  PROCEDURES  */ 
y*  USED  BY  THE  DEBUGGER.  x/ 
/x  X/ 
/x  (3)  DEBUG  PROCESSING  PROCEDURES  x/ 
y*  x/ 
/*  THIS  SUBMODULE  CONTAINS  THE  ROUTINES  TO  PRO-  *y 
y x CESS  THE  FOLLOWING  DEBUG  COMMANDS:  DISPLAY  ( D)  x/ 
y*  FILL  (F).  GO  <G>,  GO  WITH  INTERUPTS  DISABLED  */ 
/x  (H),  MOVE  (M),  SET  (S)  AND  EXAMINE  REGISTERS  *y 
/x  (X).  THE  EXIT  POINTS  FROM  THE  DEBUGGER  ARE  x/ 
/x  CONTAINED  WITHIN  THE  G AND  H ROUTINES.  *y 
y x *y 
y*  (4)  DEBUG  PROCESSING  PROCEDURES  - DISK  I/O  x/ 
y. x */ 
/x  THIS  SUBMODULE  CONTAINS  THE  ROUTINES  TO  PRO-  */ 
/x  CESS  THE  FOLLOWING  DEBUG  COMMANDS:  MIN  I -DISK  *y 
/x  BINARY  INPUT  (I),  MINI-DISK  BINARY  OUTPUT  (0)  x/ 
/x  AND  READ  HEX  FORMAT  ( R)  . *y 
y x */ 

/X  X/ 

/x  DEBUG  COMMANDS  */ 
/X  x/ 
/x  THE  DEBUGGER  CAN  BE  ENTERED  AT  ANY  TIME  BY  PROGRAM  x/ 
/x  EXECUTION  OF  A RST  2 INSTRUCTION.  WHEN  THE  DEBUG-  */ 
/x  ER  IS  EXECUTING  THE  OPERATOR  IS  PROMPTED  WITH  A ~.  */ 
/x  THE  - INDICATES  TO  THE  OPERATOR  THAT  THE  DEBUGGER  *y 
y x IS  READY  TO  PROCESS  A DEBUG  COMMAND.  */ 
/x  CERTAIN  CONVENTIONS  APPLY  TO  ALL  DEBUG  COMMANDS.  */ 
/x  THE  COMMAND  DELIMITER  IS  EITHER  A COMMA  OR  SPACE.  */ 
/x  A COMMA  IS  SHOWN  IN  THE  COMMAND  DESCRIPTIONS  WHICH  *y 
/x  FOLLOW.  ANY  TIME  A NUMERIC  PARAMETER  IS  ENTERED.  */ 
y*  IT  MAY  BE  ENTERED  IN  THE  STANDARD  HEXADECIMAL  FOR-  *y 
y*  MAT  OR  IN  DECIMAL  BY  PRECEEDING  THE  NUMBER  WITH  A */ 
/x  PERIOD  ( . ) . */ 
y*  *y 
/x  x/ 
/x  COMMAND  DESCRIPTIONS  *y 
y*  */ 
y*  1.  D - DISPLAY  */ 
/x  THE  D COMMAND  DISPLAYS  THE  CONTENTS  OF  MEMORY  *y 
/x  IN  HEXADECIMAL  AND  ASCII  FORMATS.  THE  FORMATS  x/ 
/*  OF  THE  COMMAND  ARE  */ 
/ x *y 
y x D *y 
y*  D<  9>  *y 
y x *y 
/x  IF  THE  D COMMAND  IS  USED.  MEMORY  IS  DISPLAYED  */ 
/x  FROM  THE  CURRENT  DISPLAY  ADDRESS  (INITIALLY  */ 
/x  40O0H) . AND  CONTINUES  FOR  4 DISPLAY  LINES.  *y 
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S*  EACH  DISPLAY  LIKE  CONTAINS  THE  DISPLAY  ADDRESS,  *s 

/%  THE  DATA  IN  HEXADECIMAL  FORMAT  AND  THE  DATA  IN  */ 

/*  ASCII  FORMAT.  A PERIOD  (.)  IS  DISPLAYED  IF  THE 
/*  ASCII  CHARACTER  IS  NON- D I SPLAYABLE . THE  D< S>  */ 

z'*  COMMAND  PERFORMS  IN  THE  SAME  MANNER  AS  THE  D */ 

/*  COMMAND  EXCEPT  THE  DISPLAY  ADDRESS  IS  SET  TO  */ 

/*  < S> . */ 

s*  */ 

/*  2.  F - FILL  */ 

/*  THE  FILL  COMMAND  IS  USED  TO  INITIALIZE  AN  AREA 
/*  OF  MEMORY  TO  A CONSTANT  VALUE.  THE  FORMAT  OF  */ 

/%  THE  COMMAND  IS  */ 

/* 

/*  F<  S>  , D>  , < C>  */ 

*/ 

/*  WHERE  <S>  IS  THE  STARTING  ADDRESS,  < F>  IS  THE 

FINAL  ADDRESS  AND  <C>  IS  AN  8 BIT  VALUE.  */ 

*/ 

/■*  3.  G - GO  (PROGRAM  EXECUTE)  */ 

S*  THE  G COMMAND  TRANSFERS  CONTROL  FROM  THE  DE-  */ 

/*  BUGGER  TO  THE  SPECIFIED  PROGRAM  COUNTER  VALUE  */ 

/■*  WITH  UP  TO  TWO  OPTIONAL  BREAKPOINTS  SPECIFIED. 

/*  THE  FORMS  OF  THE  COMMAND  ARE  */ 

*/ 

/%  G */ 

/■*  G<  S>  */ 

z'*  G<  S>  , < B>  */ 

/*  G<  S>  , < B>  , < C>  */ 

/*  G,<B>  */” 

/*  G,  < B>  , < C>  */ 

/■* 

/*  WHERE  <S>  IS  THE  VALUE  TO  WHICH  THE  PROGRAM  */ 

/■*  COUNTER  IS  SET,  AND  < B>  AND  <C>  ARE  OPTIONAL  *s 

/%  BREAKPOINT  LOCATIONS.  IF  <S>  IS  NOT  SPECIFIED  */' 

/*  THE  CURRENT  VALUE  OF  THE  PROGRAM  COUNTER  IS  */ 

USED.  IF  NO  BREAKPOINTS  ARE  SET.  THE  ONLY  WAY 
/*  TO  RETURN  TO  THE  DEBUGGER  IS  THE  EXECUTION  OF  */ 

A RST  2 INSTRUCTION.  */' 

/*  */ 

/*  4.  H - GO  (PROGRAM  EXECUTE  WITH  INTERUPTS  DISABLED) */ 
/*  THE  H COMMAND  PERFORMS  THE  SAME  FUNCTIONS  AS  */ 

/*  G COMMAND  EXCEPT  INTERUPTS  ARE  DISABLED  WHEN  */ 

/*  THE  MACHINE  AND  MTS  STATES  ARE  RESTORED.  THIS  */ 

/•*  COMMAND  IS  ESSENTIAL  TO  DEBUGGING  THE  CRITICAL  */ 

/*  SECTIONS  OF  MTS  CODE.  THE  FORMS  OF  THE  COMMAND  */ 

/*  FOLLOW:  %/ 

/■*  */ 

/•*  H 

/*  H<S>  */ 

z'*  H<  S)  , < B>  */ 

/*  H<  S>  , < B>  , < C>  */ 

H,<B> 

/*  H, < B> , < C>  */ 

/*  */ 

/*  WHERE  <C> , < B>  AND  <C>  ARE  THE  SAME  AS  THE  G */ 

/*  COMMAND.  */ 

/*  3.  I - MINI-DISK  BINARY  INPUT  */ 

/"*  THE  I COMMAND  INPUTS  312  BYTE  SECTORS  FROM  THE  */ 

/*  MINI-  DISK  INTO  MEMORY.  THE  FORMAT  OF  THE  COM-  */ 

/•*  HAND  IS  */ 

*/ 

I<  S>  , < A)  , < N>  */ 

■*/ 

/*  WHERE  <S>  IS  THE  STARTING  MINI-DISK  SECTOR  NUM-  */ 
/•*  BER,  < A>  IS  THE  .ADDRESS  WHERE  THE  DATA  IS  INPUT 
/*  AND  <N>  IS  THE  NUMBER  OF  312  BYTE  BLOCKS  TO  BE  */ 

/"*  INPUT.  *■/ 

/•*  */ 

/*  6.  MOVE  - MOVE  MEMORY  */ 

/“*  THE  M COMMAND  MOVES  ONE  AREA  OF  MEMORY  TO  AN-  */ 

/*  OTHER  AREA  OF  MEMORY.  THE  FORMAT  OF  THE  COMMAND  */ 

/*  IS  */ 
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/»  */ 

/*  M<  S>  , < D>  , < N>  */ 

/*  */ 

/*  WHERE  <S>  IS  THE  START  ADDRESS.  < D>  IS  THE  DES-  */ 

/*  TINATION  ADDRESS  AND  <N>  IS  THE  NUMBER  OF  BYTES  */ 

/*  TO  BE  MOVED. 

/*  */ 

/■*  7.  0 - MINI-DISK  BINARY  OUTPUT  */ 

/%  THE  0 COMMAND  OUTPUTS  MEMORY  IN  512  BYTE  BLOCKS  */ 

/-»  TO  THE  MINI-DISK.  THE  FORMAT  OF  THE  COMMAND  IS  */ 

/*  */ 

/*  0<  S>  , < A>  , < N>  */ 

*/ 

/*  WHERE  <S>  IS  THE  STARTING  MINI-DISK  SECTOR  NUM-  */ 
/*  BER,  <A>  IS  THE  ADDRESS  WHERE  THE  OUTPUT  DATA 
/*  IS  LOCATED  AND  < N>  IS  THE  NUMBER  OF  512  BYTE  */ 

/*  BLOCKS  TO  BE  OUTPUT.  */ 

*/ 

/*  8.  R - READ  HEX  FORMAT  */ 

THE  R COMMAND  READS  DATA  FROM  THE  MINI-DISK  IN  */ 

/*  INTEL  HEX  FORMAT  AND  LOADS  MEMORY.  THE  FORM  OF  */ 

/*  THE  COMMAND  IS  */ 

/•*  */ 

/■*  R<  N>  */ 

*/ 

/*  THE  INPUT  FILE  MUST  HAVE  THE  NAME  .DISK<N>  */ 

WHERE  <N>  IS  A NUMBER  FROM  0 TO  31.  THE  FILE  */ 

/*  MUST  ALSO  BE  CREATED  AND  FILLED  UNDER  THE  SYCOR  */ 
r*  OPERATING  SYSTEM. 

/%  */ 

.'*9.  S - SET  MEMORY  */ 

/*  THE  S COMMAND  IS  USED  TO  EXAMINE  AND  OPTIONALLY 
/*  MODIFY  MEMORY  ONE  BYTE  AT  A TIME.  THE  FORMAT  OF  */ 

s*.  THE  COMMAND  IS 

/*  */ 

/■*  S<  A>  */ 

/%  */ 

/*  WHERE  <A>  IS  THE  FIRST  ADDRESS  TO  BE  EXAMINED. 

/*  THE  DEBUGGER  OUTPUTS  THE  ADDDRESS  FOLLOWED  BY 

/*  THE  CONTENTS  OF  MEMORY  AT  THAT  ADDRESS.  IF  MEM-  */ 

ORY  MODIFICATION  IS  DESIRED,  A VALUE  MAY  BE  */ 

/*  ENTERED  FOLLOWED  BY  A CARRIAGE  RETURN  ( < CR> ) . */ 

s*  IF  JUST  A < CR>  IS  ENTERED  THE  NEXT  LOCATION  IS  */ 

/*  OPENED.  A <->  CAUSES  THE  PREVIOUS  LOCATION  TO  */ 

/*  BE  OPENED.  A </>  MAY  BE  ENTERED  TO  TERMINATE  *■/ 

/%  THE  SET  OPERATION.  *■' 

/*  */ 

19.  X - EXAMINE  REGISTERS  */ 

/*  THE  X COMMAND  IS  USED  TO  EXAMINE  AND  OPTIONALLY  */ 
/■*  ALTER  REGISTER  CONTENTS.  THE  FORMS  OF  THE  COM- 

/*  HAND  ARE 

/■*  */ 

/■*  X *s 

/*  X<  R>  */ 

■*/ 

/*  WHERE  <R>  IS  ONE  OF  THE  FOLLOWING  REGISTER  */ 

/*  IDENTIFIERS:  C (CARRY  BIT),  E (EVEN  PARITY  BIT) , */ 

/*  I (INTERDIGIT  CARRY  BIT).  Z (ZERO  BIT).  M (MIN-  */ 

US  - SIGN  BIT),  A ( ACCUMULATOR) , B ( BC  REGISTER  *s 
/*  PAIR),  D (DE  REGISTER  PAIR),  H ( HL  REGISTER 
/*  PAIR).  S (STACK  POINTER)  AND  P (PROGRAM  */ 

/*  COUNTER).  ALL  REGISTER  CONTENTS  ARE  DISPLAYED  */ 

/*  WHEN  ONLY  X IS  ENTERED.  IF  X< R>  IS  ENTERED.  */ 

/*  THE  SPECIFIC  REGISTERS  CONTENTS  ARE  DISPLAYED  */ 

/*  AND  MAY  OPTIONALLY  BE  ALTERED  BY  ENTERING  A */ 

NUMERIC  VALUE  FOLLOWED  BY  A CARRIAGE  RETURN.  */ 

IF  ALTERATION  IS  NOT  DESIRED.  A < CR>  WILL 
/*  CLOSE  THE  REGISTER.  */ 

/•*  */ 


/***********:***********:*x*:*******:*x:******x****#********/ 

/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXXX/ 
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z'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX,' 

/xxxxxxxxxxxxxxxxxx  DEBUGGER  CONTROL  xxxxxxxxxxxxxxxxxx/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/xxxxxxxxxxxxxx  INTERMODULE  LINKAGE  MACROS  xxxxxxxxxxxx/ 

[ I NT  DB2  DB3  DB4  M2B  IB  GB1 
C DB2 : - 2EC0H]  [DB3:=3O70H]  [M2B:=0600H] 

CIB’.*3800H]  [DB4:*3400H]  [GB:*0] 

C MACRO  MTS  '[HEX  GB  + 1F06H] ’ ] 

C MACRO  MOVBUF  ’[HEX  M2B  + 41H1  ’ ] 

[ MACRO  SVC*STACK  1 C HEX  GB  + 3C36H] 1 1 
[MACRO  INT*STACK  ' C HEX  IB  + 03HI ’ I 
C MACRO  GO  • C HEX  DB3  + 0DH] 1 1 
[MACRO  HI  ’[HEX  DB3  + 3B2H] ’ ] 

[MACRO  DISPLAY  ’[HEX  DB3  + 2BAH1 ' 1 
[MACRO  FILL  ’(HEX  DB3  + 1F4H] ' I 
[ MACRO  MOVE  ’ [ HEX  DB3  + 34EHI ’ I 
[ MACRO  SET  ’ [ HEX  DB3  + 23CHI ’ 1 
[MACRO  READ  ’[HEX  DB4  + 187H3 ’ ] 

[ MACRO  X ’ [ HEX  DB3  + 1 1CH] ' ] 

[MACRO  CONVERT* WRITE  ’[HEX  DB2  + 2 1 HI 'I 
[ MACRO  CRLF  ’ [ HEX  DB2  + 03H] ’ 1 
[MACRO  SAVE  ’[HEX  GB  + 1F03H1 ’ I 
[ MACRO  LOCK  ‘ [ HEX  GB  + 3C34H] ’ I 
[MACRO  INPUT  ’[HEX  DB4  + 2I2H]’] 

[MACRO  OUTPUT  ’[HEX  DB4  + 21 AH] ’ ] 

/xxxxxxxxxxxxxx  GENERAL  PURPOSE  MACROS  xxxxxxxxxxxxxxxx/ 
[ I NT  TOP  USER* TOP  I TOP  STOP] 

[ TOP : * 3 1 3 IUSERSTOP: =34]  [ITOP:=30]  [STOP:=40] 

[MACRO  TERMI NAL1STATUS  ’C=8i  CALL  I MTS] ’ ] 

[MACRO  READSTERMI NAL  ’C=9;  CALL  [MTS]’] 

[MACRO  WRITE* TERM INAL  LTR  ’C=10;  E=  [ LTR] ; CALL  [MTS]’] 
[MACRO  TRUE  ’ 0FFH’ ] 

[MACRO  PROMPT  ’ 7EH’ ] 

[MACRO  ERRORSCHAR  ’ 3FH’ ] 

/xxxxxxxxxxxxxx  MODULE  DECLARATIONS  xxxxxxxxxxxxxxxxxxx/ 

DECLARE  (DEBUC*ENTRY,DEBUG*CMD>  LABEL; 

DECLARE  DEBUG* STACK!  3 1 ) BYTE  INITIAL  ( 0) ; 

DECLARE  SAV* INT»STACK  (30)  BYTE  INITIAL  (0); 

DECLARE  SAV*SS»STACK  (40)  BYTE  INITIAL  (0); 

DECLARE  TRAP*LOC  (6)  BYTE  INITIAL  ( 0 , 0 , 0 . 0 , 0, 0) ; 

DECLARE  I BYTE  INITIAL  (0); 

DECLARE  SAVHL  DATA  (0,0); 

DECLARE  SAVDE  DATA  (0,0); 

DECLARE  SAV*SAVE  DATA  (0,0,0); 

ERROR:  PROCEDURE; 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


/•X  THIS  ROUTINE  IS  EXECUTED  FOR  ANY  DEBUG  ERROR  */ 
/x  CONDITIONS.  THE  STACK  POINTER  VALUE  IS  RESET  */ 
/x  BECAUSE  OF  ITS  UNKNOWN  STATE  AT  THE  TIME  THIS  x/ 
/x  ROUTINE  IS  CALLED.  AN  ERROR  PROMPT  IS  DISPLAYED  x/ 
/x  AT  THE  TERMINAL.  PROGRAM  CONTROL  IS  PASSED  TO  x/ 
/x  DEBUG*CMD  FOR  FURTHER  COMMAND  PROCESSING.  x/ 
/x  CALLED  BY:  DEBUG*CMD, GET*PARAM. GO, X, F ILL, DISPLAY,  x/ 
/x  SET. MOVE, INIT.CHECK*RD*PNTR, READ,  x/ 
/x  DISKS  10  x/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
SP= . DEBUG*STACK(  [ USERSTOP] ) ; 

[ WRITE*TERMINAL  ’[ERRORSCHAR]’]; 

GOTO  DEBUGSCMD; 

END  ERROR; 

DEBUG* ENTRY: 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/x  THIS  ROUTINE  IS  THE  ENTRY  POINT  OF  THE  DEBUGGER.  x/ 
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z'*  PROGRAM  CORTROL  IS  PASSED  TO  THIS  ROOT I RE  WHEN  A 
/*  RST  2 IRSTRUCTIOR  IS  EXECUTED.  THE  MACHINE  STATE  x/ 

/*  BEFORE  THE  RST  INSTRUCTION  WAS  EXECUTED  IS  SAVED  */ 

/*  FOLLOWED  BY  BREAKPOINT  PROCESSING.  x/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


DISABLE; 

/x  SAVE  HL,  DE  REG  PAIRS  x/ 

SAVHL-HL;  HL==DE;  SAVDE=HL; 

DE3 STACK;  '*  STORE  OLD  PC  IN  DE  x/ 

STACK3  PSW ; 

HL=2  + SP;  /*  STORE  OLD  SP  IN  HL  */ 

DE* DE- 1 ; /*  PC  IS  DECREMENTED  DUE  TO  RST  INST.  x/ 

PSW= STACK; 

SP= . DEBUG0STACKI  E TOPI  ) ; 

/-*  START  PUSHING  MACHINE  STATE  ONTO  DEBUG»STACK  x/ 
STACK3 DE:  STACK3 HL: 

/x  RETRIEVE  HL  AND  STACK  THEN  DE  AND  STACK  x/ 

HL=SAVHL; 

STACK3 HL;  HL=SAVDE;  STACK3 HL;  STACK3 BC;  STACK3 PSW; 

/*  STORE  FLAG  BITS  OF  OLD  PSW  IN  L REG  */ 

DE= STACK:  L=E; 

STACK3 DE; 

/*  DETERMINE  CARRY,  PARITY.  AC.  ZERO,  AND  SIGN  BIT  */ 
r*  BIT  AND  STORE  IN  DEBUGSSTACKf  ?.J)  “DEBUGS*STACK(  18)  x/ 
B=0;  C30; 

IF  ( A3 > L)  CY  THEN  B3 1 ; A=>A: 

IF  I A3  > A)  CY  THEN  C= 1 ; 

STACK3 BC; 

B=0 ; C=0;  A=> A; 

IF  ( A3>A)  CY  THEN  B= 1 ; 

A=>  A; 

IF  ( A3  > A)  CY  THEN  C= 1 ; 

STACK3 BC;  B30; 

IF  ( A»>A)  CY  THEN  B3 1 ; 

STACK3 BC;  SP=SP+1; 

/*  SAVE  AWAY  SYSTEM  STATUS  */ 

HL3  C SAVE! ; /*  GET  STK  PTR  WHICH  WAS  STORED  IN  SAVE  xs 

/*  DURING  SERVICE  CALL  x/ 

SAVSSAVEt  0) 3 C A=M(  HL) ) ; HL3HL+ I ; 

SAV0SAVEI 1 ) 3 ( A3  M(  HL) ) ; HL3  HL+ 1 ; 

SAV0SAVEI 2) 3 ( A3  M(  HL) ) ; 

/*  EXECUTE  AS  MTS  CODE  x/ 

HL3  C LOCK]  ; MI  HL)  3 ( A=M(  HL)  \ 01H); 

BC3CHEX  ITOP] ; /*  NUMBER  OF  BYTES  TO  SAVE  */ 

DE3  C INT0STACK] ; HL3 . SAV» INTSSTACK; 

CALL  [ MOVBUF1  ; 

BC3CHEX  STOP];  /*  NUMBER  OF  BYTES  TO  SAVE  x/ 

DE* I SVC»STACK1  ; HL3 . SAV#SSSSTACK; 

CALL  [ MOVBUF] ; 

I3 ( A3 1) ; /*  INITIALIZE  I3 I 

DO  BY  1 3 I A3 1+3)  WHILE  (A3 1-7)  'ZERO; 

HL3 . TRAP0LOC ; B30;  C3(A=I);  HL3HL+BC; 

IF  I A3 MI  HL) ; A::0>  ’ZERO  \ 

I HL3  HL+ 1 ; A3 MI  HL) ; A::0)  'ZERO  THEN 
DO;  /x  pc  IS  NON  0 x/ 

HL3 . TRAPSLOC : B=0;  C3 1 4=1-1); 

DE  POINTS  TO  ADDR  CONTAINING  OP  CODE 
HL3  HL+BC ; DE3HL; 

C=IA=I);  HL3 . TRAPSLOC ; HL3 HL+BC; 

/x  HL  POINTS  TO  ADDR  IN  WHICH  TO  RESTORE  x/ 

/x  OP  CODE  */ 

C- MI  HL) : HL3  HL+ 1 ; B=MI  HL) ; 

MI  BC)  3 1 A3  MI  DE)  ) ; 

END; 

END; 

ENABLE; 


1= I A3 I ) ; /*  INITIAL  I VALUE  IS  1 */ 

DO  BY  I3 1 A* 1+3)  WHILE  I A3 1-7)  'ZERO; 
HL3 . TRAPSLOC ; 
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/*  OFFSET  INTO  TRAP#LOC  LOADED  IN  C */ 

B=0;  C3(A=I>; 

HL3 HL+BC;  DE*HL; 

HL3 . DEBUG# STACK(  [ HEX  TOP-2] ) ; 

IF  (B3M(HL>;  A3M(DE);  HL3  HL+ 1 ; DE3 DE+ 1 ; A::B>  ZERO  0 
( B= M(  HL) ; A=M<  DE) i A: : B)  ZERO  THEN 

DO; 

STACK3 DE; 

A=  ’ * ’ ; [WRITE#TERMINAL  'A']; 

DE* STACK;  L3  1 ; 

CALL  C CONVERT# WRITE] ; 

END; 

END; 


/■*  ZERO  OUT  TRAP#LOC  A30; 

TRAP*LOC(0)3A;  TRAP#LOC(  1 ) 3 A;  TRAPSLOC<  2) 3 A; 
TRAP#L0C(3)3A;  TRAP#LOC( 4) 3 A;  TRAP*LOC( 3 ) 3 A; 

DEBUG#CMD: 

/'*»******»*»*  ac*********:*:******:*:******  * at****:*  at**********/" 

/*  THIS  ROUTINE  IS  THE  DEBUG  COMMAND  PROCESSOR.  THE  */ 
/*  COMMAND  PROCESSOR  ISSUES  A CARRIAGE  RETURN  AND  */ 

/*  LINE  FEED  FOLLOWED  BY  THE  DEBUG  PROMPT  CHARACTER.  */ 
/*  WHEN  A VALID  COMMAND  HAS  BEEN  ENTERED,  THE  APPRO-  */• 
/*  PRIATE  PROCESSING  ROUTINE  IS  CALLED.  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

CALL  CCRLF] ; 

I WRITE# TERM INAL  1 C PROMPT]  ’ ] ; 

REPEAT; 

I TERMINALSSTATUS] ; 

UNTIL  (A:: I TRUE])  ZERO; 
t RE AD# TERM INAL] ; 

/x  IF  CHARACTER  < ’A*  OR  > ’X’  IGNORE  AND 
/*  GET  ANOTHER  COMMAND  */ 

IF  ( C3 ’ A* ; A::C)  MINUS  \ CC3,Y’;  A: :C)  PLUS  THEN 
GOTO  DEBUG*CMD; 


L=( A=A-(  H3 ’ A’ ) ) ; H30; 


DO  CASE  HL; 

CALL 

ERROR; 

/* 

A 

*/ 

CALL 

ERROR; 

/* 

B 

*/ 

CALL 

ERROR; 

/* 

C 

%/ 

CALL 

[DISPLAY]  ; 

/* 

D 

DISPLAY  */ 

CALL 

ERROR; 

/* 

E 

%/ 

CALL 

[FILL] ; 

F 

FILL 

CALL 

[GO]  ; 

/* 

G 

GOTO  */ 

CALL 

[HI]  ; 

/* 

H 

- GOTO  W/O  INTERRUPTS  */ 

CALL 

[ I NPUT] ; 

/% 

I 

MIN’  DISK  BINARY  INPUT  */ 

CALL 

ERROR; 

/* 

J 

*/ 

CALL 

ERROR; 

/* 

K 

*/ 

CALL 

ERROR; 

/* 

L 

*/ 

CALL 

[ MOVE] ; 

/* 

M 

MOVE  */ 

CALL 

ERROR; 

/* 

N 

*/ 

CALL 

[ OUTPUT] ; 

/* 

0 

MINI-DISK  BINARY  OUTPUT  */ 

CALL 

ERROR; 

/* 

P 

*/ 

CALL 

ERROR; 

/* 

a 

CALL 

[ READ] ; 

/* 

R 

READ  HEX  FORMAT  */ 

CALL 

[ SET] ; 

/* 

9 

SET  MEMORY  */ 

CALL 

ERROR; 

/* 

T 

*/ 

CALL 

ERROR; 

/* 

U 

*/ 

CALL 

ERROR; 

y'* 

V 

CALL 

ERROR; 

/* 

w 

*/ 

CALL 

[X]  ; 

/* 

X 

EXAMINE  REGISTERS 

END; 

,’X  CASE  x/ 

GOTO  DEBUG#CMD; 

EOF 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX xxxxxxxxxxxxxxxxxxxxs 
/*»**************  DEBUG  UTILITIES  xxxxxxxxxxxxxxxxxxxxs 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 


1 


/************  INTERMODULE  LINKAGE  MACROS  *************/ 

C INT  DB1]  CDBl:»2BA0H] 

[macro  rrrs  • if06H’ i 

[MACRO  ERROR  ’[HEX  DBl  + 13HI ’ ] 

/•*»**********  GENERAL  PURPOSE  MACROS  *****************/ 

[MACRO  TERM  I NALtSTATUS  ’C=8;  CALL  [MTS  I’ I 
[MACRO  R£AD*TERMINAL  ’C=9;  CALL  (MTS]’] 

[MACRO  VR I TESTE RM INAL  LTR  ’C=10;  E=  [ LTR] ; CALL  [MTS]’] 
[MACRO  TRUE  ’OFFH’] 

[MACRO  FALSE  ’00H’] 

[MACRO  CR  ’ 0DH’ ] 

[MACRO  LF  ' 0AH’ ] 

(MACRO  SLASH  ’2FH’I 
[MACRO  COMMA  ’2CH’I 
[MACRO  SPACE  ’20H’I 
[MACRO  PERIOD  ’2EH’I 
(MACRO  COLON  ’3 AH ’I 
[MACRO  DASH  ’2DH’] 

[MACRO  WAIT* READ  'REPEAT; 

[ TERMINAL#STATUS] ; 

UNTIL  (A: :[TRUEI)  ZERO; 
[READ*TERMINAL3 ’ I 

/************  MODULE  DECLARATIONS  xxxxxxxxxxxxxxxxxxxx/ 
DECLARE  I BYTE  INITIAL  (0); 

CRLF:  PROCEDURE; 

/XXXXXXXXXX ******* *********** *************************/- 

/x  THIS  ROUTINE  OUTPUTS  A CARRIAGE  RETURN  AND  LINE  x/ 
sx  FEED  TO  THE  TERMINAL.  x/ 

/ x CALLED  BY:  DEBUGSCMD, DISPLAY  */ 

/*****************************************************/' 

[ VRITE*TERMINAL  ’[CRI’I; 

[ VRITE*TERMINAL  ’ [ LF] ’ I ; 

END  CRLF; 

BLANK:  PROCEDURE; 

/x  THIS  ROUTINE  DISPLAYS  A SPACE  AT  THE  TERMINAL.  x/ 
/x  CALLED  BY:  X. SET. D ISPLAY  x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
A= [ SPACE] ; 

[ WRITE* TERM INAL  ’A’ I; 

END  BLANK; 

CONVERT* WRITE:  PROCEDURE; 

z'******************************************************/' 

/ x CONVERT  AND  WRITE  BYTES  TO  THE  TERMINAL. 

/x  INPUT:  DE  - ADDRESS  OF  FIRST  BYTE  TO  BE  WRITTEN  */ 
/x  L - WRITE  FLAG  xs 

/x  0 - ONLY  WRITE  1 BYTE.  DE1 DE+ 1 */ 

/x  1 - WRITE  THIS  BYTE  AND  PREVIOUS.  */ 

/*  DE=DE-2  */ 

/x  2 - WRITE  THIS  BYTE  AND  NEXT.  DE=  DE+2  x/ 

/x  3 - ONLY  WRITE  LOWER  NIBBLE.  DE=DEM  */ 

/*  OUTPUT:  DE  - MODIFIED  AS  DESCRIBED  ABOVE 
/x  CALLED  BY:  DEBUGSENTRY, X, SET. DISPLAY  x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
H=0;  BC=HL; 

DO  CASE  HL;  /x  SET  CHARACTER  COUNT  x/ 

I=(A=2):  /x  DATA  TYPE  0 */ 

I = < A=4) ; /x  1 x/ 

I = ( A=4)  ; /*  2 X/ 

I*(  A*  1)  ; /'x  3 x/ 

END:  HL=BC; 

A*  M<  DE)  ; 

C3  A; 

IF  (A*L;  A: : 3)  IZERO  THEN 
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DO;  r*  IF  NOT  DATA  TYPE  3 - USE  MSN  */ 

A3C; 

A* > > A ; A=  > > A ; A*>>A;  A=>>A; 

C3  A; 

END; 

REPEAT; 

A=C  3 0FH; 

/*  CONVERT  THE  CONTENTS  OF  A */ 

/*  (ASSUMED  IN  THE  RANGE  0 - 13)  */ 

/*  TO  A PRINTABLE  HEX  CHARACTER  */ 

IF  ( A: : 10)  MINUS  THEN 

A=A  + 30H  /*  A=  A-  ' 0 ’ */ 

ELSE 

A3  A - 10,  + 4 1H;  /*  A^-IO.  + ’A’  */ 

STACK3  HL ; STACK3  DE ; 

[ WRITESTERMINAL  * A* I ; WRITE  CHARACTER  */ 

DE3 STACK;  HL- STACK; 

IF  (A3L;  A:: I)  ZERO  THEN 

DO;  /*  DATA  TYPE  1 - DECREMENT  ADDR  IF  */ 

/*  MSN  3 LSN  OUTPUT 
1=  ( A3  I- 1 ) ; A3  > > A ; 

IF  !CY  THEN 
DE= DE- 1 ; 

END 

ELSE 

DO;  DATA  TYPES  0,2  OR  3 - INCR  ADDR  IF 

/*  MSN  3 LSN  OUTPUT  */ 

1 3 ( A3  I - 1 ) ; A3>  > A; 

IF  !CY  THEN 
DE3 DE+ 1 ; 

END; 

A=M(  DE)  ; 

IF  !CY  THEN 

DO;  /"*  IF  MSB  TO  BE  WRITTEN,  MOVE  TO  LSB  */• 

A3  > > A;  A=  > > A;  A=>>  A;  A=>>  A; 

END; 

C=  A; 

UNTIL  (A3 I;  A::0)  ZERO; 

END  CONVERTS WRITE: 


GETS P ARAM:  PROCEDURE; 

/'S***********************:****:*:***:**:**:***************:**/ 


/-*  THIS  ROUTINE  READS  AND  RETURNS  A HEX  OR  DECIMAL  *s 

/*  PARAMETER  IN  REGISTER  HL.  A PARAMETER  HAS  BEEN  */ 

/*  ENTERED  IF  REGISTER  A IS  ZERO,  OTHERWISE  REGISTER  */ 
/*  A IS  NONZERO  AND  CONTAINS  THE  NEXT  TO  LAST  CHAR-  */ 
/*  ACTER  ENTERED.  IF  THE  LAST  CHARACTER  ENTERED  IS  A 
/*  CR  THEN  CY3 1 , OTHERWISE  CY30.  */ 

/*  INPUT:  NONE  */ 

/■*  OUTPUT:  CY  - INDICATES  WHETHER  LAST  CHAR  WAS  A CR 
/*  0 - NOT  A CR  */ 

/*  1 - CR  ENTERED  */ 

A - INDICATES  VALID  PARAMATER  ENTRY 
/■*  0 - VALID  PARAM  ENTERED  *s 

/*  NON  0 - NEXT  TO  LAST  CHAR  ENTERED  */ 

s*  HL  - VALUE  OF  VALID  PARAMETER  *s 

/*  CALLED  BY:  GO, X. F ILL. SET, DISPLAY, MOVE, READ, 

/*  DISKS  10  *s 


/XH*W**X***********.**X**'**'*X****'*'**X**X*-****X****:*'X'*X-S 

[MACRO  NOTSDEL IMETER  ’ ( A: : C COMMA!  ) 'ZERO  8 
( A::  I SPACED  'ZERO  3 (A::CCRI)  rZERO  1 1 
DECLARE  ( VALIDSPARAM, HEXSFLAG)  BYTE  INITIAL  (0,0); 
VAL I DSP ARAM*  ( A3 0 ) ; INITIALIZE  FLAGS  */ 

HEXSFLAG3  ( A3  C TRUE!  ) : 

C WAITS READ! ; 

VALIDSPARAM* A; 

IF  ( A: : C SLASH] ) ZERO  s (A:: I DASH!)  ZERO  THEN 

DO;  /*  STRIP  OFF  FIRST  POUND  SIGN  OR  MINUS  SIGN  */ 

[ WAITSREAD1  ; 

END: 

IF  (A::  [PERIOD!)  ZERO  THEN 

DO;  SET-UP  FOR  DECIMAL  PARAMETER 

VALIDSPARAM3 A; 
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HEXSFLAG3 ( A3 [ FALSE] ) i 
[ WAITS READ] ; 

END; 

HL=  0 ; 

DO  WHILE  ( NOTSDELIMETER] ; 

/•*  IF  (CHAR  > 9 AND  CHAR  < ’A’)  OR  CHAR  < ’0*  */ 

/*■  OR  CHAR  > T’  - CALL  ERROR  */ 

IF  (IF  (A:: I COLON])  PLUS  3 (A::41H)  MINUS  THEN 
CY=1  ELSE  CY=0) 

CY  \ ( A: : 30R)  MINUS  \ (A::47H)  PLUS  THEN 
CALL  I ERROR] ; 

/*  CONVERT  ASCII  CHAR  TO  HEX  DIGIT 

IF  DECIMAL  PROCESSING  AND  CHAR  > 9 - CALL  ERROR 
A=A-30H;  /*  A3  A- ’ 0 ’ */ 

IF  (A: i 10)  PLUS  THEN 
DO; 

IF  ( C=  A;  A=HEXSFLAG;  A:: (FALSE];  A=C)  ZERO  THEN 
CALL  I ERROR] ; 

A=  A-7 ; 

END; 

IF  ( C= A;  A=HEXSFLAG;  A:: I TRUE];  A=C)  ZERO  THEN 
DO;  /*  HEX  CONVERSION 

HL=HL+HL,+HL,+HL, +HL;  /■*  HL=HL*16  */ 

A=A\L:  L3  A; 

END 

ELSE 

DO;  /*  DECIMAL  CONVERSION  */ 

DE=(  HL=HL+HL)  ; /*  T?C=  rrr  x2  */- 

HL= HL+HL, +HL, +DE;  /*  HL=  HL*8  + HL*2  */ 

D=0 ; E3  A; 

HL=HL+DE; 

END; 

STACK3  HL ; 

VALID»PARAM3(  A=0)  ; 

I WAITS READ]  ; 

HL=STACK; 

END;  DO  WHILE  */ 

IF  (A::  ICR])  ZERO  THEN 
CY=  1 
ELSE 
C Y=  0 ; 

A3  VAL I DSP  ARAM; 

END  GETSPARAM; 

EOF 


/S***  ******:*******:»:****:***:((*:»:  JR********************:*:*;***:,' 

/************  DEBUG  PROCESSING  PROCEDURES  *************/ 

/sc**********:************:*********:*********:***:**:*:****:***:/ 


/************  INTERMODULE  LINKAGE  MACROS  **************/ 

[ I NT  DB1  DB2  M2B  IB  GB]  [DB1:=2BA0H]  CDB2:32EC0H] 

I M2B: 30<>00H]  t IB: =38O0H]  [GB:=0000H] 
(MACRO  MTS  '(HEX  GB  + 1F06H] ' ] 

(MACRO  MOVBUF  ’(HEX  M2B  + 41H]’] 

(MACRO  INTSSTACK  '(HEX  IB  + 03H] ’ ] 

[ MACRO  SVCSSTACK  ’ C HEX  GB  + 3C56H1 ’ ] 

C MACRO  SAVSSSSSTACK  ’ [ HEX  DB I + 29 AH] ’ ] 

[MACRO  SAVS INTSSTACK  '(HEX  DB1  + 27CH] ’ ] 

( MACRO  GETSPARAM  ’ ( HEX  DB2  + 0BBH] ’ ] 

(MACRO  ERROR  1 [ HEX  DB1  + 13H]’] 

(MACRO  DEBUGSSTACK  ' ( HEX  DB l + 249H] ' ] 

[ I NT  DEBUGSSTK]  ( DEBUGSSTK: 3 2DE9H] 

[MACRO  TRAPSLOC  ’(HEX  DB1  + 2C2H] ’ ] 

(MACRO  BLANK  ’(HEX  DB2  + 15H] ’ ] 

(MACRO  CONVERTS WR I TE  ’[HEX  DB2  + 2lH]’] 

(MACRO  CRLF  ’ ( HEX  DB2  + 03H] ’ ] 

(MACRO  SAVE  * I HEX  GB  + 1F03H] ’ ] 

(MACRO  SAVSSAVE  ’ ( HEX  DB1  + 0DH] ' ] 

( MACRO  LOCK  ’ ( HEX  GB  + 3C54H] ' ] 
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/*************  GENERAL  PURPOSE  HACROS  *****************/ 
[ I NT  TOP  USER*TOP  I TOP  STOP] 

[ TOP : = ? 1 ] [ USERJTOP : = 34  ] [ITOP:=30]  [STOP:=40] 

[MACRO  READ»TERMINAL  -C=9;  CALL  [MTS]’] 

[MACRO  WRITES TERM INAL  LTR  ’C=10;  E= [ LTR] ; CALL  [MTS]’ I 
[MACRO  TRUE  •0FFH'J 
[MACRO  FALSE  ’00H1) 

[MACRO  CR  ’ 0DH’ I 


************  MODULE  DECLARATIONS  ********************/' 

DECLARE  (SAVCY, I , J , EXIT, HFLAC)  BYTE  INITIAL  (0,0, 0,0,0); 

DECLARE  SAVHL  DATA  (0,0); 

DECLARE  SAVDE  DATA  (0,0); 

GO:  PROCEDURE; 

z'******************************************************/' 

THIS  ROUTINE  PROCESSES  THE  G COMMAND  AND  IS  THE  */ 

EXIT  POINT  FROM  THE  DEBUGGER.  */ 

/*  CALLED  BY:  DEBUGSCMD, HI  */ 

/-******************************************************/■ 

SAVCY=(A=0);  I=(A=0); 

REPEAT; 

CALL  [ GET3PARAM] ; 

D=  A;  /*  SAVE  ACCUMULATER  *s 
IF  CY  THEN  SAVCY=(A=1); 

IF  (A* I;  A : : 0 ) ZERO  THEN 

DO;  /*  RETURN  WITH  FIRST  PARAM  */ 

IF  (A=D;  A: : 0)  ZERO  THEN 
DO;  /*  STORE  START  POINT  */ 

DE=HL;  H=0;  L=  [ HEX  TOP- 1 ] ; 

BC=  C DEBUGSSTACK] ; HL=HL+BC ; 

M(HL)  = (A=D);  HL=  HL- 1 ; 

M(  HL)  = ( A=E)  ; 

END; 

END 

ELSE 

IF  (A=I;  A:: I)  ZERO  \ ( A= I ; A:: 4)  ZERO  THEN 

/*  BREAK  POINTS  HAVE  BEEN  SPECIFIED  */  1 

”0; 

HL=  = DE;  /■*  DE  NOW  CONTAINS  BREAK  PT.  TO  STORE  */ 

HL=  [ TRAPSLOC] ; 

B=0;  C= ( A= I ) ; 

/*  STORE  LO  BYTE  OF  BK  PT  */ 

HL= HL+BC;  M(HL)=(A=E); 

'*  STORE  HI  BYTE  OF  BK  PT  */ 

HL=HL+ 1 ; M(  HL) - ( A=  D) ; 

/*  STORE  OP  CODE  */ 

HL=  HL- 1,-1;  M(HL)  = (A=M(DE))  ; 

M(  DE) =( A-0D7H)  ; 

I=(A=I+2);  /*  ADJUST  INDEX  */ 

END 

ELSE 

IF  ( A=D;  A: : 0)  ’ZERO  THEN  CALL  [ERROR]; 

I = ( A= I + 1 ) : /*  ADJUST  INDEX  */ 

UNTIL  (A=SAVCY;  A: : 1)  ZERO; 

/*****************************************************/ 

/*  THE  FLAG  BYTE  OF  THE  PSW  IS  UPDATED  WITH  CHANGES  */ 

/*  WHICH  MAY  HAVE  BEEN  MADE  WHILE  IN  THE  DEBUGGER  */ 

/"*  FLAG  VALUES  ARE  STORED  INTO  THE  BC  AND  DE  REGIS-  */ 

/*  TER  PAIRS.  THE  PSW  FLAG  BYTE  IS  STORED  IN  THE  *✓ 

/*  H REGISTER  PRIOR  TO  UPDATING  ITS  VALUES  *■/ 

/*****************************************************/ 


DISABLE; 

/*  RESTORE  SYSTEM  STATUS  */ 

BC=  f HEX  I TOP] ; /*  * OF  BYTES  TO  MOVE  */ 


ira 


r 


DE=CSAV#INT*STACK]  ; /*  START  ADDR  */ 

HL*  C INTSSTACKJ  ; /*■  DEST  ADDR  */ 

CALL  [ MOVBUF] ; 

BC*  C HEX  STOP] ; 

DE* C SAV»SS»STACK] ; 

HL* C SVCSSTACia  ; 

CALL  C MOVBUF] ; 

HL* C SAVE] i DE= [ SAV#SAVE] i 

M(  HL)  •*  ( A=M(  DE)  ) : HL*  HL+  1 ; DE=DE+  1 ; 

M(  HL) *<  A*M<  DE) ) ; HL*  HL+ 1 ; DE=DE+1; 

/*  STK  PTR  SAVED  IN  SVC  CALL  RESTORED  */ 
M<  HL)  = ( A*  M(  DE)  ) ; 

/*  RESET  LOCK  BYTE  */ 

HL*  C LOCK] : M<  HL)  = ( A=M<  HL)  8 OFEH) ; 
r*  ADJUST  STACK  POINTER  */ 

SP*  C HEX  DEBUG3STK  + USER* TOP] ; 

BC* STACK;  DE* STACK;  HL* STACK; 


A=>  > C 
A*  > > B 
A*<  < A 
A=  > >E 
A*  < < A 
A*  > > D 
A*  < < A 
A*>>L 


A* < H ; H= A;  /*  LOAD  SIGN  BIT  */ 
A=<  H;  /*  LOAD  ZERO  BIT  */ 

H=  A;  /*  ADJUST  UNUSED  BIT 
A* < H ; /*  LOAD  AC  BIT  */ 

H*  A;  /*  ADJUST  UNUSED  BIT  *s 
A=<  H;  /*  LOAD  PARITY  BIT  */ 

H=  A;  z'*  .ADJUST  UNUSED  BIT  */ 


A* < H ; B=  A; 


/*  LOAD  CARRY  BIT,  STORE  UPDATED  */ 
FLAG  BYTE  OF  PSW  IN  E.  */ 


STACK* BC;  SP=SP+I; 


/"*  POP  MACHINE  STATE  AND  OLD  SP  AND  PC 


PSW* STACK 
BC* STACK 
SAVDE* HL 
HL* STACK 
SP*HL; 


DE* STACK 
HL* STACK 
DE*  STACK: 
STACK* DE; 


HL=DE; 

SAVHL*  HL; 

/*  GET  SP  AND  PC  */ 


HL* SAVDE;  DE*  HL;  HL* SAVHL; 

STACK*  PSW; 

IF  ( A*  HFLAG;  A: : [ FALSE] ) ZERO  THEN  /*  HFLAG  NOT  SET  *s 
ENABLE; 

HFLAG* ( A*  C FALSE] ) ; 

PSW* STACK;  RETURN;  /*POP  PC  OFF  STACK  */ 

END  GO; 

SET# UP : PROCEDURE; 

z'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/' 

/x  ROUTINE  TO  LOAD  REGISTER  DE  WITH  ADDRESS  OF  BYTE  */ 

/*  OR  BYTES  TO  BE  DISPLAYED  AND  REGISTER  L TO  TYPE  OF  */ 

/*  DISPLAY.  */ 

/*  CALLED  BY:  X */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

BC*  BC+ 1 ; E=  ( A*  M(  BC ) ) 

BC=BC+ 1 ; D=  ( A*  M(  BC ) ) 

BC=BC+ 1 ; L* ( A*  M(  BC) ) 

BC*BC+ 1 ; /*  POSITION  POINTER  TO  NEXT  ENTRY  */ 

END  SET# UP ; 

X:  PROCEDURE; 

/XXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXXXXX/ 

/*  THIS  ROUTINE  IS  USED  TO  EXAMINE  AND  OPTIONALLY  */ 

/%  MODIFY  REGISTERS.  */ 

/*  CALLED  BY:  DEBUG#CMD 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

/■*  REGISTER  POINTER  TABLE  - POINTS  TO  LOCATION  IN  */ 
s*  DEBUG#STACK  FOR  REGISTER  CONTENTS.  FIRST  ENTRY  */ 

/*  IS  ASCII  CODE  CODE  FOR  REG  ID.  SECOND  ENTRY  IS  */ 
r*  DEBUGSSTACK  ADDRESS  AND  THIRD  ENTRY  IS  REG  */ 

/x  TYPE  - 3 FOR  NIBBLE,  0 FOR  BYTE  AND  1 FOR  TWO  */ 
BYTES.  */ 

DECLARE  REG#FNTR( 44)  BYTE  INITIAL 

/■*  C */(  43H,  I HEX  DEBUGSSTK+TOP- 13]  .3, 

/*  E */  45H,  I HEX  DEBUGSSTK+TOP- 14] ,3, 

/x  I 49H,  I HEX  DEBUGSSTK+TOP- 13] ,3, 

/*  Z */  3 AH , I HEX  DEBUGSSTK+TOP- 16] ,3, 
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/* 

M 

*/ 

4DH.EHEX 

/% 

A 

*/ 

41H, EHEX 

/* 

B 

*/ 

42H, [HEX 

s* 

D 

*/ 

44H, EHEX 

/* 

H 

*/ 

48H, [ HEX 

S 

*/ 

33H, E HEX 

/% 

P 

*/ 

30H, E HEX 

DEBUGSSTK+TOP- 17] , 3 , 
DEBUGSSTK+TOP- 111,0, 
DEBUGSSTK+ TOP-9] , 1, 
DEBUG3STK+ TOP-7] , 1, 
DEBUGSSTK+ TOP-5] , 1 . 
DEBUGSSTK+TOP- 3] , 1 , 
DEBUGSSTK+TOP- 1 ] , 1 ) ; 


C READSTERMINAL] ; CHECK  FOR  CR 

IF  (A: : ECRJ ) ZERO  THEN 

DO;  /*  CR  ENTERED  - DISPLAY  ALL  REGISTERS  */ 
BC=.REGSPNTR<0> ; 

STACK1 BC ; 

1 5 ( A5  5 ) ; 

REPEAT;  /*  DISPLAY  FLAG  BITS  */' 

BC 5 STACK; 

A=M<  BC)  ; 

STACK5 BC ; 

[ WRITES TERM INAL  ’A’]; 

BC5 STACK; 

CALL  SETS UP; 

STACK5  BC ; 

CALL  ECONVERTSWRITE]; 

UNTIL  ( I=(A= 1-1) ; A: : 9)  ZERO; 

I5( A=6) ; 

REPEAT;  s*  DISPLAY  REGISTER  VALUES 
CALL  E BLANK] ; 

BC5 STACK; 

A=M(BC)  ; 

STACK5  BC ; 

[ WRITES TERM INAL  ’A’]; 

A5’5’;  EWRITESTERMINAL  ’A']; 

BC5 STACK; 

CALL  SETS UP; 

STACK5  BC ; 

CALL  ECONVERTSWRITE] s 
UNTIL  (I=(A5I-1);  A:  :0)  ZERO; 

BC= STACK; 

END  /*  DISPLAY  ALL  REGISTERS 
ELSE 

DO;  /■*  REGISTER  MODIFICATION 
E5  A; 

EXIT5  ( A5  E FALSE] ) ; 

DO  BC5 .REGSPNTR(O)  BY  BC5 BC+ 1 , + 1 , + 1 , + 1 
WHILE  (A5 EXIT;  A:: [FALSE])  ZERO  3 

( HL5 . REGSPNTRl  43) ; A=L-C;  A5 H — B)  PLUS; 
IF  ( A5  M(  BC ) ; A: : E)  ZERO  THEN 
DO;  /*  REGISTER  MATCH  */ 

STACK5  BC ; 

E WRITESTERMINAL  ’A']; 

A5’5’;  [WRITESTERMINAL  ’A’]; 

BC 5 STACK;  STACK5 BC; 

CALL  SETSUP; 

CALL  C CONVERTS WRI TE] ; 

CALL  E BLANK] ; 

CALL  E GETSPARAM] ; 

IF  ’CY  THEN 

CALL  E ERROR] ; /*  NO  CR  ENTERED  */ 

BC 5 STACK; 

IF  ( A: :0>  ZERO  THEN 

DO;  /*  STORE  REG  VALUE  */ 

STACK5 HL; 

CALL  SETSUP; 

BC5 STACK;  RESTORE  NEW  VALUE 

IF  ( A5  L ; A;  •'  1 ) ZERO  THEN 
DO; 

M(  DE)  5 ( A5B)  ; 

DE=DE- 1 ; 

END; 

M(DE)5(  A=C)  ; 

END; 

EXIT5  C A=t  TRUE]  ) ; 

END;  /*  REGISTER  MATCH  */ 


180 


r 


END;  /*  DO  WHILE  */ 

IF  <A»EXIT;  A: : [ FALSE] ) ZERO  THEN 

CALL  [ERROR];  NO  REGISTER  MATCH  FOUND  *✓ 

END;  /*  REGISTER  MODIFICATION  */ 

END  X; 


*/ 

x/ 

x/ 

x/ 

*/ 

x/ 


FILL:  PROCEDURE; 

/****************************************************/ 
/X  THIS  ROUTINE  IS  USED  TO  SET  A MEMORY  BLOCK  TO  A xs 
/x  SPECIFIED  VALUE.  THE  ROUTINE  INPUTS  THE  THREE 
/■*  RE&UIRED  PARAMETERS:  START  ADDRESS,  FINAL  ADD- 
/*  RESS,  AND  BYTE  CONSTANT.  THE  CONSTANT  IS  THEN 
/*  PLACED  IN  THE  START  ADDRESS  THRU  THE  FINAL  ADD- 
/*  RESS. 

/x  CALLED  BY:  DEBUG*CMD 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

CALL  [ GETSPARAM] ; /*  INPUT  START  ADDRESS  */ 

IF  CY  \ (A: : 0)  IZERO  THEN 
CALL  [ ERROR] ; 

STACK* HL; 

CALL  [ GET#PARAM] : /*  INPUT  FINAL  ADDRESS  */ 

IF  CY  N (A::0)  IZERO  THEN 
CALL  [ ERROR] ; 

STACK*  HL ; 

CALL  C GET# P ARAM] ; /*  I NPUT  BYTE  CONSTANT  x/ 

IF  ICY  \ ( A: : 0)  IZERO  THEN 
CALL  C ERROR] ; 

D=L;  HL= STACK;  BC=STACK; 

/*  HL-F INAL  ADDR,  BC= START  ADDR  */ 

IF  (A=L-C;  A=H — B)  MINUS  THEN 

CALL  [ERROR] ; /*  FINAL  ADDR  < START  ADDR  */ 
REPEAT;  /*  PERFORM  FILL  *✓ 

A=D; 

M(  BC)  = A; 

BC=BC+1;  D=  A; 

/x  FINAL  ADDR  < START  ADDR  */ 

UNTIL  ( A- L-C ; A-H--B)  MINUS; 

END  FILL; 


SET:  PROCEDURE; 

/i**********************************:******:*:*:**:*:*********.' 

/*  ROUTINE  WHICH  ALLOWS  MEMORY  LOCATIONS  TO  BE  SET  x/ 

/x  AND  OPTIONALLY  ALTERED.  THE  ROUTINE  INPUTS  ONE  */ 

sx  REQUIRED  PARAMETER  WHICH  IS  THE  ADDRESS  AT  WHICH  */ 

/x  MEMORY  EXAMINATION  IS  TO  BEGIN.  */ 

/x  CALLED  BY:  DEBUG# CMD  *s 

/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX / 

DECLARE  SET3L0CI 2)  BYTE  INITIAL  (0,0); 

EXIT*  (A*  [FALSE] ) ; 

CALL  [ GET# P ARAM] ; /x  GET  SET  LOCATION  x/- 
IF  ICY  N (A: : 0)  IZERO  THEN 

CALL  [ERROR];  /*  ERROR  IF  NO  SET  LOCATION  ENTERED  */ 
SET*LOC=HL;  /*  SAVE  SET  LOCATION  x/ 

DO  WHILE  ( A=  EXIT ; A: : [ FALSE] ) ZERO: 

/x  WRITE  OUT  ADDRESS  FOLLOWED  BY  CONTENTS  x/ 

DE= . SET»LOC( 1) ; L= 1 ; CALL  [ CONVERTSWRITE] ; 

CALL  [ BLANK]  : 

HL*SET#LOC;  DE=HL;  L=0;  CALL  [CONVERTSWRITE]; 

CALL  [ BLANK] ; 

/*  PROCESS  INPUT  */ 

CALL  [ GETS P ARAM] : 

IF  ICY  THEN  /x  NO  CR  ENTERED  - ERROR  x/ 

CALL  [ ERROR] ; 

IF  ( A : : 0 ) ZERO  THEN 

DO;  /*  VALUE  ENTERED  - SAVE  IT  x/ 

DE*HL; 

HL=SET#LOC; 

M( HL) *E;  SET*L0C=(HL=SET3L0C+1> ; 

END 

ELSE 

DO;  /*  SLASH.  CR  OR  MINUS  ENTERED  x/ 

IF  ( A: : 2FH)  ZERO  THEN  /x  SLASH  ENTERED  - EXIT  x/ 
EXIT*  ( A=  [ TRUE] ) 
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ELSE 


DO;  /*  DECR  SET  LOC  IF  MINUS  */ 

/*  ELSE  INCH  SET  LOC  */ 

IF  (A::2DH)  ZERO  THEN 
SET#LOC= ( 3L= SET# LOC- 1 ) 

ELSE 

SET# LOC = ( HL=SET*LOC+ 1) ; 

END; 

END; 

END;  /*  DO  WHILE 
END  SET; 

DISPLAY:  PROCEDURE; 

/**************************X**X****:********************/ 


/*  THIS  ROUTINE  DISPLAYS  4 LINES  OF  MEMORY  IN  HEXA-  */ 
DECIMAL  AND  ASCII  FORMATS.  EACH  LINE  DISPLAYS  16  */■ 

/*  BYTES  OF  DATA.  MEMORY  IS  DISPLAYED  FROM  THE  */ 

s*  CURRENT  DISPLAY  LINE.  THE  DISPLAY  LINE  IS  AUTO- 
/*  MATICALLY  UPDATED  BY  THE  PROCEDURE  AS  MEMORY  IS  */ 
/■*  DISPLAYED  OR  MAY  BE  SET  BY  THE  COMMAND  DS  WHERE  */ 
/*  S IS  THE  NEW  DISPLAY  LINE.  */ 

/*  CALLED  BY:  DEBUGSCMD  */ 


/**********************************»;*******************/ 
DECLARE  D ISPLAY#LINE( 2)  BYTE  INITIAL  (0OH.4OH); 

CALL  C GETSPARAMI  ; 

IF  ICY  THEN  /*  CR  WAS  NOT  ENTERED  AS  DELIMETER  */ 
CALL  I ERROR] ; 

IF  (A::0>  ZERO  THEN  /*  SET  NEW  DISPLAY  LINE  */ 
DISPLAY#LINE=HL; 

I3<A=4);  /*  SET  LINE  COUNTER  */ 

REPEAT;  /*  DISPLAY  LINE  */ 

HL3 .DISPLAY# LINE!  1) ; 

DE=HL;  L=l; 

CALL  [CON VERT# WRITE]  ; /*  WRITE  ADDRESS  *■/ 

CALL  I BLANK] ; CALL  l BLANK] ; 

HL=  D I SPLAY#L I NE ; 

DE3HL:  L=2; 

J=( A38) ; 

REPEAT;  WRITE  OUT  HEX  DATA  *s 

CALL  I CONVERTSWRITE] ; 

STACK3  HL ; STACK1 DE; 

CALL  C BLANK]  ; 

DE3 STACK;  HL3 STACK; 

UNTIL  ( J3  ( A3  J-  1 ) ; A::0)  ZERO; 

CALL  I BLANK] ; 

HL=DISPLAY#LINE; 

J3< A3 16)  ; 

REPEAT;  /*  WRITE  OUT  ASCII  DATA 
A=M(HL)  , 37FH; 

/*  PRINT  A PERIOD  FOR  CHARS  > SPACE  OR  RUBOUT  *■/ 
IF  ( A: : 20H)  MINUS  \ <A::7FH)  ZERO  THEN 
A*  ’ . • ; 

STACK3  HL; 

[ WRITE# TERM INAL  ’A’]; 

HL= STACK. + I ; 

UNTIL  (J-( A=J-1);  A::0)  ZERO; 

CALL  CCRLF] ; 

HL3DISPLAY#LINE,+<DE= 16) ; 

D I SPLAYSL I NE3  HL ; 

UNTIL  ( 1 3 ( A3 I - 1 ) ; A::0)  ZERO; 

END  DISPLAY; 


MOVE:  PROCEDURE; 

/****X******X*X******#*****X*XXX***X*******************/ 

/■*  THIS  ROUTINE  MOVES  A SPECIFIED  NUMBER  OF  BYTES  FROM*'" 
r*  ONE  SECTION  OF  MEMORY  SPECIFIED  BY  THE  USER  TO  AN-  */ 
/*  OTHER  SECTION.  GETS P ARAM  IS  CALLED  TO  DETERMINE  */ 
/*  THE  START  .AND  DESTINATION  ADDRESSES  AS  WELL  AS  THE  *f 
/*  NUMBER  OF  BYTES  TO  BE  MOVED.  */ 

/*  CALLED  BY:  DEBUG»CMD. 

/***#x******x*x#*****xx*xx**x*xx****x*x*x**x*x*****xx**/ 


: 
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i 


I 


I 


I=<A=0);  SAVCY* A; 

REPEAT; 

CALL  [ GETSPARATC  j 
IF  CY  THEN  SAVCY*  ( A=  1 ) ; 

IF  ( A*  I ; A::0)  ZERO  THEN 

STACK* HL  /»  SAVE  START  ADDRESS  */ 

ELSE 

IF  ( A*  I ; A:  : 1 ) ZERO  THEM 

STACK* HL  /*  SAVE  DESTINATION  ADDRESS  */ 

ELSE 

IF  ( A* I ; A:: 2)  ZERO  THEN 
DO; 

B=H:  C=L;  /*  BC  GETS  ■*  OF  BYTES  TO  BE  MOVED  */ 
HL* STACK;  /*  HL  GETS  DESTINATION  ADDRESS  */ 

DE= STACK;  /*  DE  GETS  START  ADDRESS  */ 

REPEAT; 

M(HL)=(A=M(DE)  ) ; 

HL*  HL+  1 ; DE*  DE+  1 ; 

UNTIL  (BC=BC-1;  A=0;  A::C)  ZERO  a (A::B)  ZERO; 

END; 

I*  ( A*  1+1)  ; 

UNTIL  ( A* SAVCY ; A: : 1)  ZERO; 

IF  ( A* I ; A:: 3)  ’ZERO  THEN  CALL  [ERROR]; 

END  MOVE; 

HI:  PROCEDURE; 


/*  THE  H ROUTINE  SETS  A FLAG  CALLED  HFLAG  WHICH  */ 
/*  CAUSES  AN  EXIT  FROM  THE  GO  ROUTINE  WITH  IN-  */ 
/*  TERRUPTS  DISABLED.  THIS  PROCEDURE  IS  NECES-  */ 
/*  SARY  FOR  THE  DEBUGGING  OF  CRITICAL  SECTIONS  */ 
/*  OF  CODE;  THAT  IS  PORTIONS  IN  WHICH  THE  INTER-  */ 
/*  RUPT  HANDLER  HAS  BEEN  DISABLED.  */ 
/*  CALLED  BY:  DEBUGSCMD  */ 


HFLAG*  ( A*  C TRUE] ) ; 
CALL  GO; 

END  HI; 

EOF 


/******************************************************/ 
/*******  DEBUG  PROCESSING  PROCEDURES  - DISK  I/O  *******/ 

/XZX*X*X*XXX**%*XX**.X*X*********X*X**X*************X***/ 


/***************  INTERMODULE  LINKAGE  MACROS  ************ 
[ INT  DBI  DB2  M2B  GB] 

[M2B:*0«00H]  CDBl:*2BA0H]  [DB2:=2EC0H]  CGB:=0] 

[MACRO  MTS  ’ 1F06H’ I 

[MACRO  ERROR  ’[HEX  DBI  + 13H] ’ ] 

[ MACRO  GET0PARAM  ’ [ HEX  DB2  + 0BBHI ’ ] 

[ MACRO  DMT9FLAG  ’ [ HEX  GB  + 3EBDH] ’ ] 

[ MACRO  DITT0BOE  ’ [ HEX  GB  + 3EDDH1  ’ I 
[MACRO  DMT0EOE  ’[HEX  GB  + 3F 1DH) ’ ] 

[ MACRO  MDBUF  ’ [ HEX  GB  + 3C7EH] ’ ] 

[MACRO  MDBUF9MAX  ’[HEX  GB  + 3C7EH  + 312]’] 

[MACRO  MINItDISK  ’[HEX  M2B  + 34H] ’ J 

/**»«***********  GENERAL  PURPOSE  MACROS  ***************/ 


[MACRO  WR I TESTE RM I NAL  LTR  ’C=10;  E*  [ LTR] ; CALL  [MTSI’I 
[MACRO  SUB0HL0DE  ’L*(A*L-E);  H* ( A*H — D) ’ ] 

[ MACRO  TRUE  ’ 0FFH’ ] 

[MACRO  FALSE  ’00H’] 

/***************:*  MODULE  DECLARATIONS  ******************/ 


DECLARE  CHAR*PNTR(2)  BYTE  INITIAL  (0.0); 
DECLARE  REC#PNTR(2)  BYTE  INITIAL  (0,0); 
DECLARE  C0SECTOR( 2)  BYTE  INITIAL  (0.0); 
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DECLARE  RECSLEN  BYTE  INITIAL  (0); 
DECLARE  BOE( 2)  BYTE  INITIAL  (0,0); 
DECLARE  E0E(2)  BYTE  INITIAL  (0,0); 
DECLARE  EXIT  BYTE  INITIAL  (0); 


INIT:  PROCEDURE; 

/x*******************************'*'*********************'' 
sx  ROUTINE  WHICH  VERIFIES  THAT  DISK  EXISTS  AND  SETS 


/*  B0E  AND  E0E  OF  DISK  INTO  BOE  AND  EOE  VARIABLES.  */ 
/•*  INPUT:  L - DISK  NUMBER  *s 
/*  OUTPUT:  BOE  AND  EOE  VARIABLES  SET  */ 
/*  CALLED  BY:  READ  */ 


sxx****************’**********'**'*'****'*'***'*****'*'*****'****'' 
IF  ( A=L;  A: : 32)  PLUS  THEN  /*  INVALID  DISK  NUMBER  */ 
CALL  C ERROR!  ; 

H=0;  C=L; 

DE* C DMTSFLAG] ; HL* HL+DE; 

IF  ( A*  > M(  HL) ) ICY  THEN  /*  DISK  DOESN’T  EXIST 
CALL  C ERROR!  ; 

/*  COMPUTE  BOE  AND  EOE  */ 

H*0;  L*  ( C=  ( A=<  < C)  > ; 

DE* C DMT# BOE! ; HL* HL+  DE ; 

BOE(  0)  = ( A=M( HL) ) ; HL*HL+1;  BOE( 1 ) = ( A*  M( HL) ) ; 


H=0;  L*C; 

DE*  t DMT#EOE! ; HL*  HL+DE ; 

EOE(  0) * ( A=M( HL) ) ; HL*  HL+ 1 ; EOE( 1 ) = ( A*  M(  HL) ) ; 
END  INIT; 


CHECK# RD#PNTR:  PROCEDURE; 

/-I******************************************************.' 

/%  ROUTINE  TO  CHECK  THE  CHARACTER  POINTER.  IF  CHAR#  */ 

/*  PNTR  EXCEEDS  THE  BUFFER  LENGTH,  THE  NEXT  SECTOR  IS 
/%  READ  INTO  MEMORY  AND  POINTERS  ARE  UPDATED.  */ 

CALLED  BY:  GNC 

/********************************:r*********************,' 

STACK* HL;  STACK* BC; 

HL=CHAR#PNTR:  DE*  C MDBUFSMAX] ; 

IF  ( [ SUB#HL#DE!  ) PLUS  THEN  s*  CHAR# PNTR  > = MDBUFSMAX  *s 
DO; 

HL=EOE;  DE=HL: 

/*  COMPUTE  CSSECTOR  - EOE  AND  TEST  >0  *s 
HL=C#SECTOR, - 1 ; 

IF  ( C SUB»HL#DE! ) PLUS  THEN 

DO;  /*  NO  MORE  DISK  SPACE  */ 

A* ’S’;  [ WRITES TERM INAL  ’A’!; 

A* ’ P ’ ; [ WR I TESTE RM INAL  ’A’!; 

CALL  t ERROR! ; 

END; 

/*  READ  DISK  BUFFER  */ 

BC* ( HL*  CSSECTOR) ; 

DE*  C MDBUF1  ; L*  1 ; /*  READ  *■/ 

CALL  [MINIDISK!  ; 

IF  (A:: CTRUE!)  ZERO  THEN  f*  DISK  ERROR  *s 
CALL  C ERROR] ; 

C*SECTOR=  ( HL*  CSSECTOR.  + 1 ) ; 

/»  COMPUTE  RECSLEN* RECSLEN- ( CHARSPNTR  - RECSPNTR)  *s 
HL=REC#PNTR;  DE*  HL; 

HL* CHARSPNTR; 

I SUBSHLSDE! ; DE*HL; 

H=0 : L=( A* RECSLEN ) ; 

[ SUBSHLSDE] ; RECSLEN* ( A*  L)  ; 

/*  RESET  REC  AND  CHAR  POINTERS  */ 

HL* CHARSPNTR;  DE=312; 

[ SUBSHLSDE] ; CHARSPNTR*  HL ; 

RECSPNTR=HL; 

END; 

BC* STACK;  HL* STACK; 

END  CHECKSRDSPNTR; 


GNC:  PROCEDURE; 

/***x*****x********************************************/ 
/*  ROUTINE  TO  RETURN  NEXT  CHARACTER.  THIS  ROUTINE  */' 
/*  ELIMINATES  SYCOR  INFORMATION  FROM  THE  RECORD  AND  */ 
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s* 

s*  OUTPUT: 

/■* 

/* 
s* 

/■*  CALLED  BY: 


s*  CONVERTS  CHARACTER  TO  HEX  IF  VALID  VALUE.  THE  */ 

s*  FORMAT  OF  THE  9YC0R  FILE  FOLLOWS: 

/*  ABCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCBA  */ 
s*  WHERE  A IS  O0H  IF  THE  RECORD  IS  ACTIVE  OR  BOH  IF  */ 

/*  THE  RECORD  HAS  BEER  DELETED.  B CORRESPONDS  TO  THE  *s 

/*  NUMBER  OF  C’S  (OR  BYTES)  IN  THE  RECORD.  */ 

*s 

IF  HEX  CHAR  READ  */ 

CY30,  A=HEX  VALUE  */ 

IF  NOT  A HEX  CHAR  */ 

CY3!,  A=  ASC I I CHAR  */ 

READ , GNB 

/*  %*****%**%**%%%**ie.%%%if.%%%%x**%**%**it.*%*x*%x%%*it.*%%%iii%/ 
STACK3  BC ; STACK3 DE;  STACK3 HL; 

CALL  C HECKS RD0PNTR ; /*  INSURE  CHARACTER  IN  MEMORY  */ 

B=0i  C=< A=RECSLEN) ; 

HL3  RECSPNTRs  DE3HL;  HL3CHARSFNTRi 
/*  IF  CHARSPNTR  - RECSPNTR  3 RECSLEN  */ 

S*  THEN  PROCESS  NEW  SYCOR  RECORD  */ 

IF  ( C SUBSHLSDE] ; A=H:  A: : B)  ZERO  3 ( A3 L : A: :C)  ZERO  TH1 
DO;  s*  PROCESS  NEW  SYCOR  RECORD  ^CZ- 
EKH13 ( A=  [ FALSE)  ) ; 

REPEAT; 

HL= CHARSPNTR; 

B=M(HL);  /*  SYCOR  RECORD  EXISTENCE  FLAG  *s 
CHARSPNTR3 ( HL3  HL+ 1 ) ; 

CALL  CHECKS RD8PNTR: 

RECSLEN3 ( A=M(  HL)  , + 1 , + 1 ) ; 

CHARSPNTR3 ( HL3  HL+ 1 ) ; 

CALL  CHECKSRDSPNTR; 

IF  ( A=<  B)  CY  THEN 

DO;  /*  SYCOR  RECORD  DELETED  */ 

B3  0 ; C=  ( A3  RECSLEN)  ; 

/*  CHARSPNTR3 CRARSPNTR+ RECSLEN  */ 
CHARSPNTR3  ( HL3  HL+BC) ; 

CALL  CHECKSRDSPNTR; 

END 

ELSE 

EXIT3( A3 (TRUE) ) ; s*  SYCOR  RECORD  VALID  */ 
UNTIL  ( A3 EXIT;  A:: (TRUE) > ZERO; 

RECSPNTR3 HL;  /*  RECSPNTR3 CHARSPNTR  */ 

END;  s*  PROCESS  NEW  SYCOR  RECORD  *✓ 

HL3 CHARSPNTR;  A=MCHL)  ; 

/*  IF  (CHAR  > ’9’  AND  CHAR  < ’A’)  OR 
s*  CHAR  < ’0-  OR  CHAR  > 1 F'  *s 

IF  (IF  ( A: : 3AH)  PLUS  3 (A::41H)  MINUS  THEN 
CY=1  ELSE  CY=0) 

CY  \ ( A: : 30H)  MINUS  \ (A::47H)  PLUS  THEN 
CY* 1 s*  NOT  A HEX  CHAR  *s 
ELSE 


DO;  /*  HEX  CHAR  - CONVERT  */ 
A3  A-30H; 

IF  (A: : 10)  PLUS  THEN 
A3 A-7 ; 

CY30; 

END; 

CHARSPNTR3 ( HL3 CHARSPNTR,  + I ) ; 

HL3 STACK;  DE3 STACK;  BC3 STACK; 

END  GNC; 


I 


! 


GNB:  PROCEDURE; 

Z*******»**»****************»:*»**:*:*******:<c:K****»t*:|cx*»:*»*Z 
s*  THE  GET  NEXT  BYTE  ROUTINE  READS  TWO  CHARACTERS  AND  *s 
s*  FORMS  A BYTE.  THE  CHECKSUM  IS  ALSO  UPDATED  IN  THIS  */ 


s*  ROUTINE. 

/*  INPUT:  B - CHECKSUM  */ 
s*  OUTPUT:  A - BYTE  VALUE  */ 
s*  B - UPDATED  CHECKSUM  */ 
s*  CALLED  BY:  READ  */ 


z********-**********************************************,./ 
STACK3 DE: 

CALL  GNC:  A=<<A:  A=<<A:  A=<<A;  D=(A=<<A): 

CALL  GNC:  D3 ( A3 A+D) ; 
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B*  < A*  B+D) ; /*  UPDATE  CHECKSUM  */ 

A*D; 

DE= STAGE; 

END  GNB; 

READ:  PROCEDURE; 


/*  THIS  ROUTINE  READS  DATA  FROM  A SYCOR  FILE  ON  THE  */ 
/*  MINI-DISK  IN  INTEL  HEX  FORMAT  AND  LOADS  MEMORY. 

/*  ONE  REQUIRED  PARAMETER  IN  INPUT.  THIS  PARAMETER  */ 
/%  CORRESPONDS  TO  THE  <N>  IN  THE  SYCOR  FILENAME  */ 
f*  . DISK<  N> . */ 
/*  CALLED  BY:  DEBUGSCMD  */ 


/ **  I*****************:*  **********:**:*  JR*********************/' 

DECLARE  (START, DONE)  LABEL; 

CALL  C GET*PARAM]  ; 

IF  !CY  \ ( A: : 0)  !ZERO  THEN 

CALL  C ERROR! ; /*  INPUT  ERROR  */ 

CALL  INIT;  '*  CHECK  FOR  DISK  VALIDITY 
/*  INITIALIZE  VARIABLES  */ 

C*SECTOR=(  HL=BOE)  ; /*  SET  CURRENT  SECTOR  NUMBER  */ 

CHAR*PNTR= ( HL= C MDBUF*MAXI ) ; RECSPNTR=HL; 

REC»LEN=( A=0> ; 

START: 

/*  SCAN  TO  SEMI-COLON  */ 

DO  WHILE  (CALL  GNC)  ICY  8 (A::3AH)  IZERO; 

END; 

B=0 ; /*  CLEAR  CHECKSUM  */ 

/%  GET  RECORD  LENGTH  */ 

CALL  GNB;  C=A; 

IF  (A: :0)  ZERO  THEN 

GOTO  DONE;  /*  0 LENGTH  RECORD  - NORMAL  TERMINATION 
/*  GET  LOAD  ADDRESS  */ 

CALL  GNB;  H=A;  CALL  GNB;  L-A; 
s*  STRIP  OFF  RECORD  TYPE 
CALL  GNB; 

REPEAT;  /*  FILL  DATA  LOCATIONS  */ 

CALL  GNB; 

M(  HL)  = A; 

UNTIL  ( HL=  HL+ 1 ; C=(A=C-1);  A::0)  ZERO; 

IF  (CALL  GNB;  A=B;  A::0)  IZERO  THEN 
DO;  /*  CHECKSUM  ERROR  *■/ 

A3 ’ C ' ; [ WRITE* TERM INAL  ’A1]; 

A= ’ S ’ ; [WRITE* TERM INAL  ’A’ I; 

CALL  t ERROR] ; 

END; 

/*  ADJUST  CHARSPNTR  TO  POINT  TO  START  OF  */ 

NEXT  SYCOR  RECORD 
H=0;  L=( A=REC*LEN) ; DE=HL; 

CHAR*PNTR=  ( HL= RECSPNTR, +DE) ; 

GOTO  START; 

DONE: 

END  READ: 


DISK* 10:  PROCEDURE; 

/*  THIS  ROUTINE  UTILIZES  CALLS  TO  THE  MINISDISK  */ 
s*  PROCEDURE  TO  READ  OR  WRITE  SPECIFIED  NUMBERS  */ 
/*  OF  SECTORS  BETWEEN  DISK  AND  MEMORY.  THE  DMA  */ 
/*  ADDRESS  IS  SPECIFIED  IN  THE  COMMAND.  */ 
/■*  CALLED  BY:  DEBUG*CMD  */ 


/********************************:******************/' 
DECLARE  (INPUT,  OUTPUT,  START 1 ) LABEL; 

DECLARE  ( DISKSOP,  N*SEC)  BYTE  INITIAL  (0,0); 
INPUT: 

DISK*OP»(  A= 1)  ; 

GOTO  START 1; 

OUTPUT: 

DlSK*OP=( A=2) ; 

START 1 : 

CALL  I GETSPARAM] ; 

IF  CY  \ (A: : 0)  ’ZERO  THEN  CALL  [ERROR]; 
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STACK’ HL i /*  SAVE  THE  STARTING  SECTOR  • */ 
CALL  C GET* P ARAM] ; 

IF  CY  \ <A::0)  TZERO  THEN  CALL  [ERROR]; 

STACK’ HL;  /*  STACK  START  ADDRESS 
CALL  [ GET*PARAM] ; 

IF  ICY  \ (A::0)  (ZERO  THEN  CALL  [ERROR]; 

SET  * OF  SECTORS  - SET  UP  FOR  CALL  TO  MINIDISK 
N*SEC= ( A*L) ; L=< A=DISK*OP) ; 

DE» STACK;  BC’ STACK; 

REPEAT; 

CALL  [M1NISDIS1C1; 

IF  (A--:*)  (ZERO  THEN  CALL  [ERROR]; 
DE=<HL=200H+DE) ; BC=BC+1;  L= ( A=DISK*OP)  ; 
N*SEC’( A=N*SEC,-1> ; /*  READJUST  COUNTERS  */ 

UNTIL  (A::0)  ZERO; 

END  DISK* 10; 


Eor 


^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/-x  x x x x rrre  command  processor  <mcp>  * * x */ 

/'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


19FAH: 

MCP:  PROCEDURE; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*  ' 
/x  MCP  IS  AW  INDEPEWDENT  MODULE  OF  THE  MICROCOMPUTER 
TIMES HARED  SYSTEM  (MTS)  DEVELOPED  FOR  THE  WPS 
MICROCOMPUTER  LABORATORY  SYCOR  440  SYSTEM. 

THIS  MODULE  IS  CALLED  BY  THE  MTS  MOWITOR  TO 
PROCESS  AWY  SYSTEM  COMMAWDS  ENTERED  THROUGH  THE 
TERMINAL  INTERFACE  BY  THE  USER.  MTS  COMMANDS  ARE 
VALIDATED  BY  MCP  AND  THEN  SENT  TO  MTS  SERVICE 
CALL  CONTROL  MODULE  FOR  FURTHER  PROCESSING. 

MCP  IS  WRITTEN  IN  PLM  FOR  TWO  REASONS: 

( 1)  TO  UTILITZE  A HIGH-LEVEL  LANGUAGE  TO 
FACILITATE  THE  DESIGN  AND  DEBUGGING  TAEK 
DURING  THE  DEVELOPMENT  OF  MCP. 

(2)  TO  PROVIDE  A PLM  PROGRAM  WHICH  ILLUSTRATES 
THE  FUNCTION  CALL  REQUIREMENTS 

FOR  ANY  USER  PROGRAM  TO  INTERFACE  WITH  MTS. 

THERE  ARE  TWO  PRIMARY  DIFFERENCES  BETWEEN  THE  MCP 
INTERFACE  WITH  MTS  AND  A USER  PROGRAM/MTS  INTERFACE. 

( 1)  ONE  IS  THE  ENTRY  PORT.  THE  MTS  INTERFACE  PORT 
FOR  USER  PROGRAMS  IS  2000H.  THE  ENTRY  PORT 
FOR  MCP  IS  1F00H. 

(2)  THE  OTHER  DIFFERENCE  IS  THAT  USER  PROGRAMS 
DO  NOT  HAVE  TO  BE  CONCERNED  WITH  SAVING 
AND  RESTORING  THE  MTS  MONITOR  STACKPTR. 


MCP  WILL  PROCESS  THE  FOLLOWING  SYSTEM  COMMANDS 
ENTERED  AT  THE  TERMINAL  BY  THE  USER: 

COMMAND  PARAMETERS 


LOGIN 

QUIT 

ATTACH 

PROTECT 

RESTRICT 

UNPROTECT 

SIZE 


< DISK  NUMBER>  /< KEY> 

NONE 

< DRIVE  LETTER?  < DISK  NUMBER?  ?<  KEY? 
< DISK  NUMBER?  /< KEY? 

< DISK  NUMBER?  ?<  KEY? 

< DISK  NUMBER?  /<  KEY? 

< MEMORY  SIZE? 


WHERE 

< DRIVE  LETTER? - 


< DISK  NUMBER?  - 

< DISK  NUMBER?  - 
?<  KEY? 

< MEMORY  SIZE?  - 


*/ 


DESIGNATES  A VIRTUAL  FLOPPY  DISK 
DRIVE  TO  BE  ONE  OF  THE  LETTERS 
A THRU  H. 

SPECIFIES  A VIRTUAL  FLOPPY  DISK 
NUMBER  FROM  0-31. 

SPECIFIES  A DISK  NUMBER  FROM  0-31. 
SPECIFIES  A 4 CHARACTER  KEY  CODE. 
SPECIFIES  THE  SIZE  OF  THE  USER 
PROGRAM  AREA. 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX**XXXXXXXXXXXXXXXXXXXXX/ 


/"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  x X x MCP  LITERAL  AND  DATA  DECLARATIONS  x x 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/*  * * * * 

MCP  LITERAL 

DECLARATIONS  x x x 

DECLARE 

LIT 

LITERALLY 

•LITERALLY’  . 

MTS 

LIT  • 1F00H 

' ,?x  INTERNAL  MTS  PORT 

MTSSCMD* READY 

LIT  ’OFOK’ 

1 80 


INVALID*  CPID 


LIT 


1 


TRUE 

FALSE 

CR 

LF 

TAB 


LIT  ' 0FFH’ , 
LIT 

LIT  ’ 0DH’  , 
LIT  ’ 0AH’  , 
LIT  ’ 9 ’ 


MAXSCBUFF*S IZE  LIT  '64’ 


READS MTSSCMD  LIT 
ATTACB  LIT 
MTSSMSG  LIT 
LOGIN  LIT 
PROTECT  LIT 
QUIT  LIT 
RESTRICT  LIT 
SIZE  LIT 
UNPROTECT  LIT 
TERMINALSSTATUS  LIT 
READ8TERM INAL  LIT 
VRITESTERMINAL  LIT 


•-r 


•dr 

•2’ 

•3’ 

’4’ 

’3’ 

■6’ 

’7’ 

•8’ 

•9’ 

’ 10’ 


, /*  INTERNAL  MTS  CMD  */ 

, /XMTS  SYSTEM  CMD  NUMBERS*/' 


/*****  MCP  GLOBAL  DECLARATIONS 


* x x * X/ 


DECLARE 

CBUFF  (64) 

CBUFFSLENGTH 

CBUFF8PTR 


BYTE,  /*  CMD  BUFF  FOR  MTS  COMMAND  */ 
BYTE,  /*  NUMBER  OF  CHABS  IN  CBUFF  */ 
BYTEi  /*  PTS  TO  NEXT  CHAR  IN  CBUFF 

TO  BE  PROCESSED  */ 


DECLARE 

CHAR 

VALUE  (2) 
PARAMETERS  (6) 


BYTE,  /*  USED  FOR  CHAR  MANIPULATION  */ 
BYTE,  /*  VECTOR  FOR  CONVERTING  NUMBERS  */ 
BYTE;  /^PARAMETERS  FOR  MTS  SYSTEM  CALLS*/ 


/-XXX***************************************************/ 
/*  x x * * MTS  INTERFACE  PROCEDURES  * x x * */ 
/XXX  x*x*xx***xxx*x****xx*******x***xx*xxx*x**x**x*xx***/ 


/XX*XXXX***XX**XXXXX*XX********X*XX***X**XX*XX*XXX*XX/ 

/*  rrrsi-  provides  mts  interface  for  functions 

WHICH  DO  NOT  REQUIRE  A RETURN  VALUE. 

’F’  CONTAINS  THE  MTS  CMD  NUMBER;  ’A’  CONTAINS 
THE  PARAMETER  OR  ADDRESS  TO  LIST  OF  PARAMETERS. 
CALLED  BY:  ERRORSMSG;  SEND8MTS8CMD 

*/ 

MTS  1 : PROCEDURE  ( F , A) ; 

DECLARE  F BYTE,  A ADDRESS; 

GO  TO  MTS; 

END  MTS1 ; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/*  MTS2-  PROVIDES  MTS  INTERFACE  FOR  FUNCTIONS 
WHICH  REQUIRE  A RETURNED  VALUE. 

•F’  AND  ’A’  ARE  THE  SAME  AS  IN  MTS  1 . 

CALLED  BY:  READSCHAR;  SENDS MTSSCMD 

*/ 

BTS2 : PROCEDURE  ( F , A)  BYTE; 

DECLARE  F BYTE,  A ADDRESS; 

GO  TO  MTS; 

END  MTS 2 ; 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x  x * x * * MCP  PRIMITIVE  PROCEDURES  x * x */ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/ 

READ*CHAR:  PROCEDURE  BYTE; 

RETJJRN  MTS2(  READ* MTSSCMD . 0)  ; 

END  READSCHAR; 


CBUFF*NOT*EMPTY:  PROCEDURE  BYTE: 

RETURN  CBUFFSPTR  < CBUFFSLENGTH; 
END  CBUFF*NOT*EMPTY; 


DEBLANK : PROCEDURE ; 

DO  WHILE  (CBUFFSPTR  < CBUFFSLENGTH)  AND 
( CBUFF(  CBUFFSPTR)  = ’ ’ ) OR 
( CBUFF( CBUFF#PTR)  = TAB); 
CBUFFSPTR  = CBUFFSPTR  + 1 ; 

END; 

END  DEBLANK; 


ERROR* MSG:  PROCEDURE; 

CALL  MTS  1 ( ITTSSMSG,  INVALIDSCMD)  ; 
GOTO  FINI ; 

END  ERROR* MSG; 


✓**********************************************:******/ 
/•*  FILLSCBUFF  - CHECK  CURRENT  TERMINAL  STATUS  FOR 
MTS  COMMAND.  IF  NOT,  EXIT;  OTHERWISE  FILL  THE 
COMMAND  BUFFER  WITH  THE  MTS  COMMAND. 

CALLED  BY:  MCP  MAIN  CONTROL 

*/ 

FILLSCBUFF:  PROCEDURE; 

IF  rrrS2(TERMINAL*STATUS,0) =MTSSCMDS READY  THEN 
DO; 

CBUFFSPTR.  CBUFFSLENGTH  = 0; 

DO  WHILE  (CBUFFSLENGTH  < = MAXSCBUFFSS IZE)  AND 

( ( CBUFF  ( CBUFFSLENGTH)  : = READSCHAR)  OCR); 
CBUFFSLENGTH  = CBUFF SLENGTH+ 1 ; 

END; 

END; 

END  FILLSCBUFF; 


INITIALIZE:  PROCEDURE; 
DECLARE  I BYTE; 

DO  1=0  TO  5; 

PARAMETERS ( I)  = 0FFH; 
END; 

VALUE( 0) , VALUE! 1)  = 0; 
END  INITIALIZE; 


/*************:****:**:***:*  a::#:*:****::**:*:*******:***#:):*****:**/ 
*/ 

LETTER:  PROCEDURE  ( C)  BYTE; 

DECLARE  C BYTE; 

RETURN  C > = ’A’  AND  C <=  ’Z’; 

END  LETTER; 


/S***********:******:**#**********#********************/ 

NUMBER  - RETURN  TRUE  IF  'C'  IS  A NUMBER. 

CALLED  BY:  GETSNUMBER;  GETS PARAMETERS ; 

ATTACHSCMD;  SIZESCMD 

*/ 

NUMBER:  PROCEDURE  (C)  BYTE; 

DECLARE  C BYTE; 

RETURN  C > = ' 0 ’ AND  C < = ’ 9 ’ ; 

END  NUMBER; 


/*********x******j|t:*:*:****»:s|t*:*:f:***:*********:***::)c*:***:«:*X*/' 

/*  READSCMDSL I NE  - READS  CHAR  FROM  COMMAND  BUFFER; 

CONVERTS  LETTERS  FROM  LOWER  TO  UPPER  CASE. 

IF  REQUIRED. 

CALLED  BY:  GETS KEY;  GETSNUMBER;  GETS PARAMETERS ; 


190 


ATTACH* CMD;  SIZE* CUD;  MCP  MAIN  CONTROL 

*/ 

READ* CMDS LINE:  PROCEDURE  BYTE; 

DECLARE  C BYTE; 

IF  CC:-CBUFF(CBUFF*PTR) ) >=  61H  /*  LOWER  CASE  A */ 
AND  C < » 7 AH  THEN  /*  LOWER  CASE  Z */ 

C = C AND  5FH;  /*  CONVERT  TO  UPPER  CASE  */ 
CBUFF»PTR  3 CBUFF»PTR+ 1 ; 

RETURN  C; 

END  READSCMDSLINE; 


/****************************************************/ 
/*  SCAN*TO*BLANK  - SCAN  TO  NEXT  BLANK  OR  TAB  CHAR. 
CALLED  BY:  MCP  MAIN  CONTROL 

*/ 

SC AN* TO* BLANK:  PROCEDURE; 

DO  WHILE  ( CBUFF8PTR< CBUFFSLENGTH)  AND 
( CBUFF( CBUFFSPTR) < > ’ ’>  AND 
( CBUFFC CBUFFSPTR) < > TAB) ; 

CBUFFSPTR  = CBUFFSPTR+ 1 ; 

END; 

END  SCANSTOSBLANK; 


/****************************************************/ 
/*  SEND® MTSSCMD  - ' CMD'  CONTAINS  THE  NTS  CND  NUMBER 

AND  ’PARAMETER’  CONTAINS  THE  ACTUAL  PARAMETER 
OR  THE  ADDRESS  OF  THE  ACTUAL  PARAMETER  LIST. 

TWO  MTS  SYSTEM  CALLS  ARE  MADE: 

( 1)  MTS2  - PROCESS  SYSTEM  CMD,  WHICH  RETURNS 
A RESPONSE. 

< 2)  MTS  1 - DISPLAY  RESPONSE  AT  USER  TERMINAL. 

*/ 

SENDS MTSSCMD:  PROCEDURE  ( CMD , PARAMETER) ; 

DECLARE  CMD  BYTE,  PARAMETER  ADDRESS; 

CALL  MTS I ( MTSSMSG,  MTS 2 ( CMD, PARAMETER) ) ; 

END  SEND* MTSSCMD ; 


/******************************************************/ 
/*  * * * * UTILITY  PROCEDURES  ******  */ 

/******************************************************/ 


z'****************************************************/ 

/*  CONVERTSVALUE  - CONVERT  ASCII  CODE  IN  ’VALUE’ 

TO  APPROPRIATE  BINARY  VALUE.  THE  RANGE  OF  VALUES 
TO  BE  CONVERTED  ARE  FROM  0-31. 

CALLED  BY:  GETS NUMBER; 

*/ 

CONVERTS VALUE:  PROCEDURE  BYTE; 

IF  VALUE C 1)  = 0 THEN  /*ONLY  A SINGLE  DIGIT  TO  CONVERT*/ 
RETURN  VALUE<  0) -30H; 

ELSE  /*  TWO  DIGITS  TO  CONVERT  */ 

RETURN  ( ( VALUE( 0) -30H) * 10-K  VALUE!  1>-30H))  ; 

END  CONVERTSVALUE; 


/-****************************************************/ 
/*  GETSKEY  - GET  THE  < KEY>  PARAMETER.  IF  ENTERED; 
STORE  KEY  IN  THE  PARAMETER  LIST  STARTING  AT  I. 
CALLED  BY:  ATT AC HS CMD:  GETS PARAMETERS ; 

*/ 

GETSKEY:  PROCEDURE  ( I ) ; 

DECLARE  I BYTE; 

IF  GBUFF8N0TS EMPTY  THEN  /*NEXT  CHAR  MUST  BE  ’/’  */ 

DO: 

IF  ( CHAR: = READSCMDSLINE)  - ’/’  THEN 

DO  WHILE  CKO)  AND  CBUFFSNOTSEMPTY; 

PARAMETERS < I ) =READSCMD$L INE ; 

1*1+1; 

END; 
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“ «*■  — — z 

Ban)  GET* KEY; 

ssstjtjsss'is 

•CHAU'  HOLDS  THE  FIRST  DIGIT.  ENTRY’ 

my  CALLED  BY:  ATTACH»CMD;  GET* PARAMETERS  j 

GET* HUMBER:  PROCEDURE  ( I ) 5 

DECLARE  I BYTE: 

VALUE!  0)  » CHAR; 

IF  CBUFF*NOT* EMPTY  AMD 

RUMBERC  CHAR: »READ*CMD*LINE) 

’’mm  „ . CM./'  ™>  BKn  Bls*  mm 

PARAMETERS!  I ) = CONVERT* VALUE ; 

END  GET* NUMBER; 

«£,<?>  PARAMETERS.  GENERATES  ERROR  MSG  IF 
NEXT  CHAR  IS  NOT  A NUMBER.  *' 

%/  CALLED  BY:  LOCINSCMD;  GET* REQUIRED* PARAMETERS; 

GET*P  ARAMETERS : PROCEDURE; 

IF  NUMBER!  CHAR: »READ*CMD*L I NE)  THEN 

DO; 

CALL  GET* NUMBER! 0) ; 

CALL  DEBLANK; 

CALL  GET* KEY!  1 ) ; 

END; 

ELSE 

CALL  ERROR*  MSG ; 

END  GET* PARAMETERS ; 

* CET*REQU I RED* PARAMETERS  - GETS  THE  < DISK  nttmrpr> 

un?j1uK^^-?AflAMETERS  F0R  THOSE  SYSTEM  CMOS  FOR 
WHICH  THESE  PARAMETERS  ARE  REQUIRED  ! NOT 

EBM,B  *’  :™*~Seiws 

%/  CALLED  BY:  PROTECT*CMD;  RESTR I CT*CMD ; UNPROTECT*CMD 

GETSREQU I RED*P ARAMETERS : PROCEDURE : 

IF  CBUFFS NOT* EMPTY  THEN 
CALL  GET»P ARAMETERS ; 

ELSE 

CALL  ERRORSMSG; 

Ban)  CET*REQU I RED*P ARAMETERS; 

* * * * * * SYSTEM  CMD  PROCEDURES  ***,». 

;rw^ACMcro*-^^^*^^*****^*^**^^******^^ 

<DniVE  LTR>  <DISK  NR>  r<KEY> 
fCTvwL£A2£5ETERS  ARE  OPTIONAL.  HOWEVER 
! CAN  NOT  APPEAR  WITHOUT  IT’S  ASSOCIATED 

SgFJSV  P^AMETEHS  are  entered 

THEY  MUST  BE  IN  THE  ORDER  INDICATED 
%/  CALLED  BY:  MCP  MAIN  CONTROL 

ATTACH*CMD:  PROCEDURE; 


192 


IF  CBUTFfNOT* EMPTY  THEM 
00; 

CHAR  * READ*CHD*L I HE : 

IF  LETTER!  CHAR)  THEM  < DRIVE  LETTER?  */ 

DO; 

PARAMETERS! •)■ CHAR-4 1H; /"CONVERT  TO  BINARY*/ 
CALL  DEBLANK; 

IF  CBUFF«NOT* EMPTY  THEN  /*  MORE  PARAMETERS  */ 
CHAR  * READ*CMD*LINE; 

END; 

IF  NUMBER! CHAR)  THEN  /*  < DISK  NUMBER?  */ 

DO; 

CALL  GET* NUMBER!  1) ; 

CALL  DEBLANK; 

CALL  GETS KEY! 2) ; /*  < KEY?  */ 

CALL  DEBLANK; 

END; 

END; 

IF  CBUFF»NOT* EMPTY  THEN 
CALL  ERROR* MSG; 

ET.gr. 

CALL  SEND*MTS*CMD! ATTACH, . PARAMETERS) ; 

END  ATTACMCMD; 


/****************************************************/ 
/■*  LOGINBCMD  - 

FORM:  LOGIN  <DISK  NUMBER?  /< KEY? 

THE  PARAMETERS  ARE  OPTIONAL  BUT  < KEY?  CAN  NOT 
APPEAR  WITHOUT  <DISK  NUMBER?. 

CALLED  BY:  MCP  MAIN  CONTROL 

*/ 

LOGINSCMD:  PROCEDURE; 

IF  CBUFF* NOT* EMPTY  THEN 

CALL  GET*  P ARAMETERS ; 

CALL  SEND*MTS*CMD! LOGIN, .PARAMETERS) ; 

END  LOGINSCMD; 


/I****************************************************/ 

/*  PROTECT*CMD  - 

FORM:  PROTECT  <DISK  NUMBER?  /<  KEY? 

THE  PARAMETERS  ARE  REQUIRED. 

CALLED  BY:  MCP  MAIN  CONTROL 

*/ 

PROTECTSCMD:  PROCEDURE; 

CALL  GET*REQU I RED* PARAMETERS ; 

CALL  SEND*MTS*CMD( PROTECT,  . PARAMETERS) ; 

END  PROTECT»CMD ; 


/'**************»***************************#*********/ 
/*  QUITBCMD  - FORM:  QUIT 
NO  PARAMETERS. 

CALLED  BY:  MCP  MAIN  CONTROL 

*/ 

QU I T*CMD : PROCEDURE; 

CALL  SEND*MTS*CMD! QUIT , 0) ; 

END  QUITSCMD; 


^**********t#***t****»t»********»!*»*»»:»t*»t  *********»****»/ 

/*  RESTR I CT*CMD  - 

FORM:  RESTRICT  <DISK  NUMBER?  /<  KEY? 

THE  PARAMETERS  ARE  REQUIRED. 

CALLED  BY:  MCP  MAIN  CONTROL 

*/ 

RESTRICTBCMD:  PROCEDURE; 

CALL  GET*REQU I RED* PARAMETERS : 

CALL  SEND*MTS*CMD(  RESTRICT. .PARAMETERS) ; 

END  RESTRICTBCMD: 


Li 
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/*  UKPROTECTVCMD  - 

FORMS  URFROTECT  < DISK  DUMBER)  /<  KEY> 
THE  PARAMETERS  ARE  REQUIRED. 

CALLED  BY:  MCP  HAIR  CORTROL 

*/ 

URPROTECTBCMD : PROCEDURE; 

CALL  GET* REQUIRED* PARAMETERS; 

CALL  SERD*MTS*CMD< URPROTECT, .PARAMETERS) ; 
ElfD  URPROTECTBCMD; 


✓XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX********/ 

y*  SIZESCMD  - 

rORM:  SIZE  < MEMORY  SIZE> 

THE  PARAMETER  IS  REQUIRED. 

CALLED  BY:  MCP  HAIR  CORTROL 

*✓ 

SIZEBCMD:  PROCEDURE; 

IP  CBUEMROT* EMPTY  THER 
DO; 

IF  DUMBER!  CHAR: SREAD*CMD*L IRE)  THER 

DO;  /*  GET  MEMORY  SIZE  PARAMETER  */ 

CALL  GETBRUMBER!  0) ; 

CALL  SERD*MTS»CMD(  S IZE.  PARAMETERS!  0) ) ; 

ERDi 

ELSE  y*  PARAMETER  MUST  BE  RUMBER  */ 

CALL  ERROR* MSG;  /*  SPECIFYIRG  MEMORY  SIZE  my 


ERD: 

ELSE 

CALL  ERROR* MSG; 
ERD  SIZESCMD; 


/*  CBUFF  EMPTY  - ERROR  my 

y*  PARAMETER  REQUIRED  *✓ 


/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*/ 
ym  m x MTS  COMMARD  PROCESSOR  ( MCP)  HAIR  CORTROL  * my 
/•xxx  CALLED  BY:  MTS  MOR I TOR  MODULE  * 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


DECLARE  STACK  (2«)  ADDRESS , OLDSP  ADDRESS; 

OLDSP  * STACKPTR:  /*  SAVE  MTS  STACK  POIRTER  *y 

STACK? TR  * . STACK!  LERGTH!  STACK) ) ; /*  SETUP  MCP  STACKPTR  my 

CALL  INITIALIZE;  /*  INITIALIZE  DATA  STRUCTURES  */ 

CALL  FILL*CBUFF;  y*  GET  MTS  COMMARD  my 

CALL  DEBLARK;  f*  SCAR  TO  FIRST  RORBLARK  CHAR  my 

IF  CBUFF*ROT* EMPTY  THER  /*  PROCESS  CMD  BUFFER  */ 

DO; 

CHAR  * READ*CMD*L IRE;/*  GET  FIRST  LETTER  OF  CMD  my 

CALL  SCAR*TO*BLARK;  /x  SCAR  TO  HEXT  BLARK,  BECAUSE 

ORLY  THE  FIRST  LETTER  IS  USED 

*/ 

CALL  DEBLARK; 


IF  CHAR  * 'A'  THER 

CALL  ATTACH* CMD; 

ELSE 

DO; 

IF  CHAR  ■ ’L*  THER 
CALL  LOGIRtCMD; 

ELSE 

DO: 

IF  CHAR  * ’P*  THER 

CALL  PR0TECT9CMD; 

ELSE 

DO; 

IF  CHAR  * ’ Q’  THER 
CALL  QUIT* CMD; 

ELSE 

DO; 

IF  CHAR  * ’R’ 


TO  DETERM I RE  THE  CMD 

y*  ATTACH 


y*  LOGIR 


my 


my 


THER 


/*  PROTECT  *y 


ym  quit 


y*  RESTRICT  *y 
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CALL  RESTRICT9CMD: 


ELSE 

DO: 

IT  CHAR* 'S’  THEN  SIZE 
CALL  SIZESCHD: 

ELSE 

DO: 

IF  CHAR*  ’ V THEN/'*ONFR0TECT*/' 
CALL  UNPROTECTSCMD: 

ELSE 

CALL  ERRORS HSG: 

END: 

END: 

END: 

END; 

ERD: 

END: 

END: 

FIHI : 

STACKPTR  * OLDSP;  /*  RESTORE  MTS  MONITOR  STACKPTR  */ 

END  MCP: 


Eor 
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